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APPENDIX  IV: 
USER'S  GUIDE 


APPENDIX  IV: 
INTACVAL  USERS'  GUIDE 


1 . 0  GENERAL  PRINCIPLES 

a.  To  select  an  option,  move  the  cursor  to  the  option  on  the  screen  using 
the  mouse,  then  click  on  the  left  button  of  the  mouse. 

B.  To  close  a  window,  double-click  on  the  small  box  in  the  upper  left-hand 
corner  of  the  window. 

C.  To  view  the  continuation  of  the  text  which  appears  in  a  particular 
window,  use  the  scroll  bar  at  the  right  side  of  the  window  (to  scroll  up  ana 
down)  or  the  scroll  bar  just  below  the  window  (to  scroll  left  and  right). 
Clicking  on  the  arrows  in  a  scroll  bar  will  scroll  the  text  in  the  direction 
of  the  arrow. 


2.0  UTILITIES 

2. 1  Desk 

To  select  an  option  from  the  DESK  menu,  the  user  must  first  click  on  the 
mouse  at  DESK.  While  holding  down  the  mouse  button  the  user  brings  the 
cursor  to  the  option  he  wishes  to  select  (Clock,  Notepad,  or  Calculator)  and 
then  releases  the  button.  When  finished  with  an  option,  the  user  should 
double-click  on  the  small  box  in  the  upper  left  corner  of  the  window;  this' 
will  close  the  window. 

2.1.1  Clock:  Shows  the  present  time. 

2.1.2  Notepad :  Allows  the  entry  and  review  of  notes  (sections  of  text). 

These  can  be  stored  in  any  text  file. 

2.1.3  Calculator :  Supplies  basic  calculator  functions. 


2.2  File 

This  option  enables  the  user  to  open  a  new  session  file,  reopen  on  old  file, 
or  delete  an  old  file.  It  also  allows  users  to  save  changed  knowledge  bases 
from  one  session  to  another. 

To  choose  an  option  from  the  FILE  menu,  first  click  on  the  FILE  prompt. 

While  holding  down  the  mouse  button,  bring  the  cursor  to  the  entry  you  wish 
to  choose  (New  Session,  Previous  Session,  or  Exit),  and  then  release  the 
button . 
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2.2.1  New  Session:  This  option  allows  the  user  to  open  a  new  session.  When 

a  new  session  is  opened  the  default  knowledge  base  Values  are  used.  The  new 
session  is  given  a  record  number  one  higher  then  the  largest  previous 
session  number.  If  ten  sessions  already  exist,  the  user  will  be  prompted  to 
first  delete  an  old  session. 

2.2.2  Previous  Session:  This  option  allows  the  user  to  display  a  list  of 
previous  sessions  on  the  screen.  The  user  may  then  enter  any  of  these 
previous  sessions  and  change  Values.  The  new  Values  will  automatically 
saved  when  EXIT  is  selected. 

When  PREVIOUS  SESSION  is  selected  ar.d  the  list  of  previous  sessions  appears, 
the  user  can  click  on  a  session  name.  If  the  user  double-clicks  on  this 
session  name,  that  session  will  automatically  be  opened.  If  the  user 
single-clicks,  OPEN  and  DELETE  are  presented  for  choice.  Choosing  OPEN 
opens  the  desired  session  and  updates  the  knowledge  base  Values  to  those 
contained  in  that  session.  If  DELETE  is  selected,  a  confirmation  prompt 
appears.  If  YES  is  selected  from  this  confirmation,  the  session  is  deleted. 
If  NO  is  selected,  the  user  returns  to  the  session  list. 

2.2.3  Exit :  This  is  the  only  way  the  user  can  exit  INTACVAL.  Upon  selection 
of  EXIT,  the  system  performs  an  automatic  save  operation  for  the  current 
session.  The  current  Values  for  the  knowledge  bases  are  automatically  saved 
under  the  current  session  name. 

The  session  saved  will  contain  a  two-digit  suffix  with  the  session  number 
that  was  automatically  assigned.  The  user  can  automatically  save  only  ten 
sessions.  Before  saving  the  eleventh  session  an  old  session  must  be 
deleted.  The  PREVIOUS  SESSION  list  will  appear  and  the  user  must  click  on 
the  session  he  wishes  to  delete.  The  old  session  will  be  removed  and  the 
new  session  will  be  automatically  saved  under  the  old  session  name. 
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3.0  PROCESS  MODEL 


3 . 1  Selectable  Process  Model 

3.1.1  Start:  Clicking  on  the  START  option  will  create  a  display  of  the  major 
steps  the  user  should  follow  in  the  operation  of  the  aid  (process  model). 

The  user  can  click  on  any  one  of  these  steps  at  any  time  to  move  immediately 
to  that  function. 

3.1.2  Continue :  By  repeatedly  clicking  on  the  CONTINUE  option  the  user  will 
see  all  the  information  in  the  system  displayed  in  an  order  that  assists  in 
assimilating  and  processing  the  information.  This  option  may  prove 
especially  helpful  to  the  novice  who  is  less  familiar  with  the  process  of 
generating  a  Course  of  Action  (COA). 

3.1.3  Finish :  Selection  of  this  option  signals  that  the  user  is  ready  to 
conclude  the  current  session.  This  option  automatically  performs  the  same 
operations  as  FILE  followed  by  EXIT  to  save  the  session,  as  described  above. 


3 . 2  Components  and  Sub-Components 

The  user  can  select  one  of  the  process  model  components  by  clicking  on  it 
with  the  mouse.  The  user  will  then  view  all  the  sub-components  of  that 
component  on  the  screen,  although  only  one  of  these  sub-components  will  be 
visible  at  ony  one  time.  To  view  a  different  sub-component,  the  user  should 
click  on  the  top  bar  of  the  desired  sub-component. 

If  the  user  selects  one  of  the  COA  (Courses  of  Action)  components,  the  Red 
or  Blue  COA  that  is  currently  active  will  appear  on  the  screen.  The 
opposing  COA  and  the  active  Knowledge  Base  moy  be  then  selected  by  clicking 
on  the  new  component  buttons  that  appear  on  the  screen.  Notice  that  the 
elements  of  the  Knowledge  Bases  are  color-coded,  red  indicating 
Soviet/Warsaw  Pact  and  blue  indicating  U.S./NATO  selections. 

3.2.1  Mission :  Assumptions,  Intent,  and  Objectives  are  available. 

3.2.2  Terrain :  General  and  Key  Terrain  are  available. 

3.2.3  Blue  Capabilities:  Blue  Composition/Location/Disposition, 
Reinforcements,  and  Condition  are  available. 

3.2.4  Red  Capabilities:  Red  Composition/Location/Disposition, 

Reinforcements,  and  Condition  are  available. 

3.2.5  Red  COA :  Red  COA,  Blue  COA,  and  Red  Knowledge  Base  are  available. 

3.2.6  Blue  COA:  Blue  COA,  Red  COA,  and  Blue  Knowledge  Base  are  available. 
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4 . 0  WAP  DISPLAY 


The  high-resolution  video  mop  disploy  shows  the  terrain  of  East  and  West 
Germany  where  the  scenario  takes  place,  with  colored  icons  illustrating  the 
locations  of  the  opposing  forces.  This  symbology  is  presented  in  blue  and 
red.  The  symbology  that  is  graphically  equivalent  to  the  alphanumeric 
information  shown  on  the  PC  screen  is  shown  at  all  times.  When  the 
alphanumeric  data  is  removed  from  the  PC  screen,  its  graphic  equivalents  are 
removed  from  the  map  screen. 

4 . 1  Map  Option 

The  user  ccn  select  MAP  from  the  PC  menu  to  display  and  remove  map  symbology 
as  well  as  to  move  around  the  map  area,  viewing  the  geography  at  higher  and 
lower  magnifications.  To  move  from  the  PC  screen  to  the  video  map  screen 
the  user  clicks  the  mouse  on  the  MAP  option.  The  cursor  will  automatically 
appear  on  the  video  map  screen.  The  user  can  continue  using  the  mouse  to 
move  the  video  map  cursor  (represented  by  a  red  cross)  around  the  map. 

To  pan  the  area  of  map  view  north,  south,  east,  west,  or  diagonally,  the 
user  moves  the  cursor  to  the  light  blue  border  around  the  map.  The  cursor 
will  change  into  an  arrow  pointing  in  the  appropriate  direction.  By 
clicking  with  the  mouse  the  map  will  scroll  in  the  desired  direction. 

To  "zoom  in"  at  a  desired  point,  the  user  should  first  position  the  cursor 
at  the  location  he  wishes  to  view  in  increased  detail  and  then  click  the 
mouse,  and  then  select  one  of  the  IN  boxes  displayed  at  the  map  border.  The 
same  procedure  is  followed  to  zoom  out,  except  the  OUT  box  is  selected. 

4.1.1  Map  Menu :  The  menu  at  the  left  side  of  the  map  screen  contains  these 
options : 


-  Red  Units:  displays  the  red  unit  icons. 

-  Blue  Units:  displays  the  blue  unit  icons. 

-  Draw  Region  of  Interest:  limits  region  in  which  icons  will  be 

displayed . 

-  Clear  Screen:  remove  all  icons  from  screen. 

-  Draw  Line:  calculates  and  displays  the  distance  between  the  two 

points  chosen. 

-  Data:  displays  data  corresponding  to  the  icon  selected.  The  user 

must  first  click  on  the  icon  of  interest. 

-  PC:  returns  the  cursor  to  the  PC  screen. 
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5.0  KNOWLEDGE  BASE 


The  user  can  choose  a  new  Value  for  any  non-shaded  cell  of  the  knowledge 
base  by  clicking  on  that  cell  with  the  mouse.  This  will  cause  the  cell 
containing  that  Value  to  be  filled  with  red  (if  the  Red  Knowledge  Base  is 
active)  or  blue  (if  the  Blue  Knowledge  Base  is  active).  To  view  areas  of 
the  knowledge  base  not  currently  visible  on  the  screen,  the  user  may  click 
on  the  horizontal  or  vertical  scroll  bars.  Closing  other  windows  that  are 
on  the  screen  will  allow  a  larger  area  of  the  knowledge  base  to  be  viewed. 

INTACVAL  begins  a  new  session  with  a  series  of  default  Values  set  that 
result  in  Red  C0A1  and  Blue  C0A1  being  displayed.  As  described  in  Appendix 
II,  one  set  of  new  Value  selections  that  allow  all  the  COA’s  to  be  viewed  is 
performed  as  follows  (with  the  Blue  Knowledge  Base  displayed): 


Value  Selected: 

New  COA : 

Relative  Combat  Power/Deception/Favors  Red 

BC0A3 

Relative  Combat  Power/Terrain/Equal 

Relative  Combat  Power/Mobility/Favors  Red 

Relative  Combat  Power/Maneuver  Units/Favors  Blue 

8C0A2 

OPFOR/OPFOR  C2/Good 

OPFOR/Condition  of  OPFOR  Divisions/Average 

BCOA 1 

OPFOR/Strength  of  OPFOR  Divisions/70-79^ 

Friendly  Force/Condition  of  Friendly  Divisions/ Average 

RC0A2 

Relative  Combat  Power/Deception/Favors  Blue 

RC0A1 , RC0A3 

\ 
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INTACVAL . H 


I 

I 

I 

I 

I 

I 

I 

I 

I 


^include  "fcntl.h" 

//include  "io.h" 

^include  "string. h" 

//include  "stdio.h" 

^include  "window. n" 
^include  "process. h" 
^include  "dos.h" 

#def 1 ne  MC_CLOCK 
define  MC_NOTEPAD 
#def ine  MC_CALClllATOR 
#def ine  MC_NEW_SESSION 
^define  MC_PREVIOUS_SESSION 
//define  MC_EXIT 
#define  mc_maP 

//define  DLG_ST ART 
#def ine  OLG_CONTINUE 
#def ine  DLG_FINISH 
//define  DLG_FILELIST 
//define  DLG_OPEN 
#def ine  DLG_DELETE 
^define  DLG_CLICK 
//define  DLG~YES 
#define  DLG_NO 
#def ine  DLG_MISSION 
//define  DLG_TERRAIN 
#def ine  DLG_F_GAP 
#def ine  DLG_E~CAP 
#def ine  DLG_E_COA 
//define  DLG_F_COA 
#def ine  DLG~BUTT0N1 
//define  DLG_BUTT0N2 
^define  DLG  BUTTON 


0x1000 
0x1001 
0x1002 
0x1003 
0x1004 
0x1 005 
0x 1006 

0x1100 
0x1101 
0x1102 
0x1103 
0x1104 
0x1105 
0x1106 
0x1107 
0x1108 
0x1109 
0x1100 
0x1 10b 
0x110c 
0x110d 
0x1 1 0e 
0x1l0f 
0x1110 
0x1111 


#def  ine  ASS_FILE_NAME 
#oef ine  I NT_F I L E~N AME 
//define  OBJ_FILE_NAME 
#def ine  GE  N~F I L  E~N AME 
//define  KEY~FILE_NAME 
#define  FCOM_FILE_NAME 
#def ine  FREI_FILE_NAME 
//define  FCON_FILE_NAME 
//define  ECOM_FILE_NAME 
//define  EREI_FILE_NAME 
//define  ECON_FILE_NAME 
#def ine  ENEMY_FILE_NAME 
//define  FRIENDLY_FILE_NAME 
//define  SENEMY_FILE_NAME 
|  //define  SFRIENDLY_FILE_NAME 

1  //define  MAXLENGTH  450 

|  typedef  HANDLE  HDLG ; 


"ASSUME" 

"INTENT" 

"OBOECTIV" 

"GENTERRA" 

"KEYTERRA" 

"FCLO" 

"FREINF" 

"FCOND" 

"ECLD" 

"EREINF" 

"ECOND" 

"RCOA" 

"BCOA" 

"RCOAS" 

"BCOAS" 


typedef  struct 
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{ 

char  r-esl[2l]; 
char  attribute; 
struct 
{ 

unsigned  second: 5; 
unsigned  minute: 6; 
unsigned  hour: 5; 

)  time; 
struct 
1 

unsigned  day:5; 
unsigned  month: A; 
unsigned  year:7; 

)  date; 
long  size; 
char  name[l3]; 

)  DIR_ENTRY; 

HWND  main_window; 

HANDLE  intacval_instance; 
TEXTMETRIC  font_sizing; 
char  id_name[8]; 

HDLG  current_figure; 

FARPROC  current_dialog_f unc ; 


HANDLE  list_handle; 
char  f ilenames[10] [60] ; 


int  new_fp; 

HWND  file_handle[3] ; 

int  no_of_open_files; 
int  current_active_window; 
char  s [200 ] ; 

int  figflag; 

/*E-Enemy  Coa  file  for  current  COA*/ 
/•F-Friendly  Coa  file  for  current  COA*/ 
/*EO-Enemy  OAV’S*/ 

/•FO-Friendly  OAV’S*/ 


/•Handle  to  the  current  dialog  box*/ 
/•The  current  dialog  function- 
There  is  one  for  each  source 
which  creates  dialog  boxes*/ 
/•handle  to  list  of  session  files 
in  directory*/ 

/•files  used  as  session  files  and 
presently  found  in  the  directory 
including  date  and  time*/ 

/•file  pointer  to  file  opened 
before  the  CreateWindow*/ 

/•the  current  handles  to  open  file 
or  OAV  windows*/ 

/•number  of  open  f ile_windows*/ 

/•used  as  string  in  various 

functions  especially  in  debug*/ 
/•the  current  status  •/ 


/•FIG  FLAG  Table*/ 

/*  VALUE  RESOURCE  COMMENTS 

30  Figure  3  Previous  session 

40  Figure  4 

45  Figure  4A  After  asking  in  figure  4  to  delete  a  file 

50  Figure  5  After  clicking  START 

60  Figure  5  Mission 

90  Figure  5  Terrain 

110  Figure  5  Friendly  Cap 
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120 

Figure  5 

Enemy  Cap 

130 

Figure  13 

E 

131 

Figure  13 

F 

132 

Figure  13 

EO 

135 

Figure  14 

E-F 

136 

Figure  14 

E-EO 

137 

Figure  14 

F-EO 

138 

Figure  5 

E-F-EO 

140 

Figure  13 

F 

141 

Figure  13 

E 

142 

Figure  13 

FO 

145 

Figure  14 

F-E 

146 

Figure  14 

F-FO 

147 

Figure  14 

E-FO 

148 

Figure  5 

F-E-FO 

*/ 

■unsigned  char  f_curvec[],  fcoa[][3]; 

"unsigned  char  e_curvec[],  ecoa[][3]; 

I  unsigned  int  screen_height ; 

/•The  current  COA  to  be  displayed  calculated  using  the  curvecs*/ 
int  current_e_coa ,  current_f_coa ; 

I  int  current_highlight;  /*The  current  button  to  be  darkened 

on  the  left  side  of  screen.*/ 

int  destroyed_flag;  /*ls  window  already  closed*/ 

char  current_session[l5] ; 

I  char  next  session[l5]; 
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/*  Parallax  Graphics  header  file*/ 

/*** . ** . * . / 

/«  Parallax  Graphics  definition  of  commands  “/ 

/*  AUTHOR:  Dave  Arnold  OATE:  6/17/85  «/ 

/****** . *** . « . / 

/*  (GRAPHIO.C)  Subroutine:  */ 

/*  GRAPHIO( index  , argl argn , went , buffer )  */ 

/*  opcode  structure  definition:  tells  grophio  how  to  deal  with  calls  */ 

typeaef  struct  pstruct 

{ 

int  opcode;  /*  graphics  opcode  “/ 

int  nparms;  /*  number  of  parameters  including  opcode 

*/ 

int  flag;  /“  flag  0  *  nobuffer,  1  ■  write  buffer,  -1  »  read  buffer  */ 

}  PSTRUCT; 


/** . * . / 

/“  WRITE  FROM  BUFFER  TO  GRAPHICS  CONTROLLER  */ 

/“  obuf(wcnt,  buffer)  int  went,  “buffer;  */ 

/ . * . ***“*/ 

#define  08UFF  0  /*  index  of  op  code  structure  */ 

#define  obuff(wcnt,  buffer)  graphio(08UFF,  went,  buffer) 

/*** . . . ***** . / 

/*  READ  INTO  BUFFER  FROM  GRAPHICS  CONTROLLER  */ 

/*  ibuff(wcnt,  buffer)  int  went,  “buffer;  */ 

/ . ****** . / 


^define  IBUFF  1 

#define  ibuff(wcnt,  buffer)  graphio{ IBUFF ,  went,  buffer) 

/******* . / 

/“  DRAW  SOLID  FILLED  POLYGON  “/ 

/»  poly( color , n , buff er )  int  color , n , “buffer ;  */ 

/***** . / 

#def ine  POLY  2 

^define  poly (color , n , buffer )  graphio(POLY,  color,  n,  n  <<  1,  buffer) 

/* . **** . / 

/*  DRAW  OUTLINED  POLYGON  */ 

/»  polyo( color , n , buff er )  int  color , n , “buff er;  “/ 

/ . / 

^define  POLYO  3 

^define  polyo(color, n , buffer )  graphio( POLYO ,  color,  n,  n  <<  1,  buffer) 

/ . / 

/*  DRAW  STIPPLED  POLYGON  */ 

/“  polys( xstip , ystip , n , buf f er )  int  xstip , ystip , n , “buffer ;  */ 

. . / 


\ 
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■^define  POLYS  4 

#define  polys(xstip, ystip, n, buffer)  graphio( POLYS , xstip ,  ystip ,  n  ,  n  <<  1, buffer) 

1/ . . 

"/*  COPY  POLYGON  */ 

/*  polyc( xold , yold , n , buffer )  int  xold , yold , n , “buffer ;  */ 

I . ' 

^define  POLYC  5 

-#define  polyc(xold, yold, n, buffer)  graphio( POLYC,  xold,  yold,  n,  n  <<  1,  buffer) 

"/ . . 

/*  DRAW  SOLID  CIRCLE  */ 

I/*  circ(color , radius , x , y )  int  color , radius , x , y ;  */ 

/ . * . / 

|#define  CIRC  6 

#define  circ(color, radius, x,y)  graphio(CIRC,  color,  radius,  x,  y) 

/ . * . / 

I/*  DRAW  OUTLINED  CIRCLE  */ 

/*  circo(color , radius , x , y )  int  color , radius , x , y;  */ 

/ . / 

|#def ine  CIRCO  7 

#define  circo(color , radius , x , y )  graphio(CIRCO,  color,  radius,  x,  y) 

J  /*  DRAW  STIPPLED  CIRCLE  */ 

/*  circs(xstip , ystip, radius, x , y)  int  xstip , ystip , radius , x , y ;  */ 

/ . * . / 

^define  CIRCS  8 

#def ine  circs( xstip , ystip . radius . x . y )  graph io( CIRCS, xstip , ystip , radius , x , y ) 

/ . / 

/*  COPY  CIRCLE  */ 

/*  circc(xold, yold , radius , xnew, ynew)  int  xold,  yold, radius, xnew, ynew;  */ 

/ . / 


^define  CIRCC  9 

#define  circc(xold, yold, radius, xnew, ynew)\ 
graphio(CIRCC,  xold, yold, radius, xnew, ynew) 

/***** . / 

/*  INTERIOR  FILL  */ 

_  /*  fill(color,x, y )  int  color, x,y;  */ 

/ . / 

I  (('define  FILL  10 

* ^define  fill(color ,x, y)  graphio( FILL ,  color,  x,  y) 

1/ . . / 

I/*  INTERIOR  STIPPLE  FILL  */ 

/*  f ills(xstip , ystip , x , y )  int  xstip , ystip , x , y;  */ 
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1 . 7 

#def ine  FILLS  11 

_#define  f ills( xstip , ystip , x , y )  graphio( FILLS ,  xstip,  ystip,  x,  y) 

By*****************/ 

/*  INTERIOR  COPY  */ 

II*  f illc(xold , yold , xnew, ynew)  Int  xold, yold, xnew, ynew;  */ 

/ . * . / 

|#define  FILLC  12 

^define  fillc(xold, yold, xnew, ynew)  graphio( FILLC ,  xold,  yold,  xnew,  ynew) 

/************ . */ 

II*  DRAW  SOLID  BOX  */ 

I*  box(color,x1 , yl ,x2, y2)  Int  color , xl , yl , x2 , y2 ;  */ 

I******* . * . / 

|#def ine  BOX  13 

#define  box(color , xl , yl , x2 , y2 )  graphio(BOX,  color,  xl,  yl ,  x2 ,  y2) 


1/ . *.******««/ 

/*  DRAW  OUTLINED  BOX  */ 

I*  boxo(color,x1 , yl ,x2, y2)  int  color , xl , yl , x2, y2:  */ 


I 

■#def  ine  BOXO  14 

^define  boxo(color ,x1 ,y1 ,x2,y2)  graphio( BOXO, color , xl , yl , x2 , y2 ) 

| . / 

/*  DRAW  STIPPLED  BOX  */ 

I*  boxs(xstip, ystip, xl , y 1 ,x2,y2)  int  xstip , ystip, xl , yl , x2 , y2 ;  •/ 

I' . ' 

^define  BOXS  15 

(('define  boxs( xstip ,  ystip , xl ,  yl  ,x2,  y2)  graphio( BOXS , xstip ,  ystip , xl , yl  ,x2,  y2  ) 

/ . / 

/»  COPY  BOX  */ 

I*  boxc(xold, yold.xl ,y1 ,x2,y2)  int  xold , yold , xl , yl , x2 , y2 ;  */ 

i  '/***» . / 

(^define  BOXC  16 

(^define  boxc( xold, yold.xl ,y1 ,x2,y2)  graphlo( BOXC , xold , yold , xl , yl , x2 , y2 ) 

. . . 

_  I /*  WRITE  TEXT  */ 

I/*  text(color, x , y , string)  int  color, x,y;  char  “string;  */ 

I . . 

{(('define  TEXT  17 
(^define  text(color,x,  y ,  string)\ 

grophio(TEXT, color ,x, y , strlen( string ) , ( strlen( string )+1 )  >>  1 , string  ) 

I . / 

/*  WRITE  STIPPLED  TEXT  •/ 

I 

i  I 
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/*  texts (xst ip ,  ystip  , x , y , string  )  int  xstip ,  ystip ,  x  ,  y ;  char  “string-,  “/ 


/* 


•/ 


(^define  TEXTS  18 

^define  texts(xstip, ystip, x, y, string)\ 

graph io( TEXTS, xstip, ystip, x , y , strlen( string ) , ( strlen( string )+1 )  >>  1,  string) 

!'•** . > 

■  /*  COPY  TEXT  */ 

/*  textc(xold , yold , xnew, ynew, string )  int  xold , yold, xnew, ynew;  char  ^string;  */ 

/♦MMUMUMMMMMMUf/ 

1 

■  #define  TEXTC  19 

#def ine  textc(xold , yold , xnew, ynew, string ) \ 

I  graph io( TEXTC, xold, yold , xnew, ynew, strlen( string ) , \ 

( Strlen( string )+1 )  >>  1,  string) 


I/*  DRAW  VECTOR  */ 

/“  vect( color , xl , yl , x2 , y2 )  int  color , xl , yl , x2 , y2 ;  “/ 

/ . / 

■  ^define  VECT  20 

"^define  vect( color, xl , yl ,x2,y2)  graphio( VECT , color . xl ,y1 ,x2,y2) 

I/******** . *** . / 

/*  DRAW  MULTIPLE  VECTORS  */ 

/*  vectm( color , n , buffer )  int  color , n , “buffer;  “/ 

I'""'" . ' 

•  ^define  VECTM  21 

^define  vectm( color , n , buffer )  graphio( VECTM, color , n , n  <<  1, buffer) 

! 

. . . 

/*  VECTOR  SAVE  */ 

/*  vects( vxl , vyl , vx2 , vy2 , bxl , byl , bx2 , by 2  )  int  vxl , vy 1 , vx2 , vy2 , bxl , by  1 , bx2 , by2 ;  * 

/ 

/* . * . / 


# define  VECTS  22 

^define  vects( vxl , vyl , vx2, vy2, bxl , byl , bx2 , by 2 )\ 
graphio( VECTS, vxl , vyl , vx2, vy2, bxl , byl , bx2,by2) 


. . . 

•  /*  VECTOR  RESTORE  */ 

/«  vectr(bx1,by1,bx2,by2,vx1,vy1,vx2,vy2)  int  bxl , byl , bx2, by2, vxl , vyl , vx2, vy2; 

1 '/ . / 

^define  VECTR  23 

I  ^define  vectr(bx1 ,by1 , bx2,by2, vxl , vyl , vx2, vy2)\ 

1  graphio( VECTR, bxl , byl ,bx2,by2, vxl , vyl ,vx2,vy2) 

1/ . ' 

/*  PATTERNED  vector  */ 

/«  vectp(color1 ,color2, pattern, xl ,yl ,x2,y2)  int 

I 

I 


V 
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I colorl , color 2 , pattern , xl , y 1 , x2 , y2 ;  */ 


|#def  ine  VECTP  24 

#def Ine  vectp( colorl , color2 , pattern ,x1 , yl , x2 , y2 )\ 
graph io( VECTP , colorl , color2 , pattern ,x1 , yl ,x2, y2) 

1/ . . 

/*  XOR  VECTOR  */ 

/*  vectx(value,x1 ,y1 ,x2,y2)  lnt  value, xl ,y1 ,x2,y2;  */ 

|  . ' 

•  #define  VECTX  25 

#deflne  vectx( value, xl ,y1 ,x2,y2)  graphio( VECTX , value , xl , yl ,x2,y2) 

J#define  VECTW  26 

#deflne  vectw(width,  value, xl , yl , x2, y2)  graphlo( VECTW, width , value, xl , yl , x2 , y2 ) 

■  . / 

■  /*  SET  ZOOM  FACTORS  */ 

/*  zoom( zoomx , zoomy )  int  zoomx, zoomy;  */ 

I' . ' 

^define  ZOOM  27 

^define  zoom( zoomx , zoomy )  graphio( ZOOM, (zoomx  <<  8)  !  zoomy) 

I/** . / 

/*  SET  PAN  ORIGIN  */ 

II*  pan(xleft, ytop)  int  xleft.ytop;  */ 

. 7 

^define  PAN  28 

!  #define  pan(xleft, ytop)  grophio(PAN, xleft, ytop) 

/ . / 

/•  SET  COLOR  TABLE  */ 

/*  clt4(color, red, green, blue)  int  color, red, green, blue;  */ 

I . - . / 

#def ine  CLT4  29 

#define  clt4(color, red, green , blue)\ 
graphio(CLT4, color , ( red<  <1)1 ( green <  <6 ) ! ( blue<  < 1 1 ) ) 

J  / . *******/ 

-1  /*  SET  8-PLANE  COLOR  TABLE  */ 

/*  clt8(color, red, green, blue)  int  color , red, green , blue;  */ 

1 ' . ' 

#def ine  CLT8  30 

^define  clt8(color, red, green, blue)  graphio(CLT8, color !( red< <8) , green ! (blue< <8) ) 

'  / . / 

I*  color  table  read  */ 

II*  cltrd(color,  pntr)  int  color,  *pntr;  */ 

l . 7 
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|#define  CLTRD  31 

^define  cltrd{ color , pntr )  graphio( CLTRD, color , 2 , pntr ) 

I/**** . / 

/*  flash  «/ 

/*  flash ( vx , vy , dx0 , dy0 , dxl , dyl )  int  vx ,  vy , dx0 , dy0 , dxl , dyl ;  •/ 

/ . / 

|#define  FLASH  32 

#deflne  flash ( vx, vy , dx0, dy0, dxl , dyl )  graph io( FLASH, vx, vy, dx0 , dy0 , dxl , dy 1 ) 

|/ . / 

■/*  fieldf  */ 

/*  f ieldf ( vx , vy , dx0 , dy0 , dxl , dyl )  int  vx , vy , dx0 , dy0 , dxl , dyl ;  */ 

|  ' 

"^define  FIELDF  33 

#def  ine  fieldf(vx,vy, dx0 , dy0 , dxl , dyl )  graphio( FIELDF, vx , vy , dx0 , dy0 , dxl  , dy  1 ) 

1/ . / 

/*  dthron  */ 

I/*  dthron(  )  */ 

' . ' 

#def ine  DTHRON  34 
J|#define  dthron( )  graphio(DTHRON) 

/* . / 

I/*  dthroff  */ 

/*  dthroff(  )  */ 

/ . / 

!  #def ine  DTHROFF  35 
#define  dthroff ( )  graphio( DTHROFF ) 

/** . / 

/*  keyon  */ 

/*  keyon( )  */ 

/ . ***/ 

^define  KEYON  36 

^define  keyon( )  graphio(KEYON) 

/ . / 

/*  keyoff  */ 

/*  keyoff(  )  */ 

I' . 7 

#def ine  KEYOFF  37 

^define  keyoff ( )  graphio( KEYOFF ) 

1/ . / 

/*  SET  WRITE  MASK  */ 

I/*  mask(planes)  int  planes;  */ 

' . ' 
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^define  MASK  38 

^define  mask(planes)  graphio(MASK, planes ) 


I/*  SELECT  OPAQUE  TABLE  */ 

/*  opaq(n)  int  n;  */ 

/***** . ***** . / 

J#define  OPAQ  39 
#define  opaq(n)  graphio(OPAQ, n ) 

I"*** . * - ■**/ 

■/*  LOAD  OPAQUE  TABLE  */ 

/*  opaql( first , n , buffer )  unsigned  f irst , n , “buffer ;  */ 

| . ' 

#def ine  OPAQL  40 

#def ine  opaql( first , n , buffer )  graphio( OPAQL, (first<<8) ! ( n&255) , ((n-1)>>4)+1,buff 
|er) 

/*** . / 

II*  MASK  OPAQUE  TABLE  */ 

I*  opaqm( planes , value)  int  planes , value ;  «/ 

/ . / 

|#define  OPAQM  41 

#define  opaqm( planes , value )  graphio( OPAQM, ( planes< <8)  !  value) 


/«************,*********»*****»**,/ 
I/*  WAIT  FOR  VERTICAL  SYNC  (60Hz)  */ 
* /*  sync( ) 


^define  SYNC  42 

/'define  sync(  )  graphio( SYNC ) 

/ . * . ****/ 

/*  CLEAR  VERTICAL  SYNC  COUNTER  */ 
/*  syncc( ) 

/****** . * . / 


"  ^define  SYNCC  43 
#define  syncc( )  graphio( SYNCC) 

-  /*«  . * . / 

/*  LOAD  VERTICAL  SYNC  COUNTER  */ 

/*  syncl(count)  int  count;  */ 

_  / . * . * . / 

^define  SYNCL  44 

J/'deflne  syncl(count)  graphio(  SYNCL ,  count ) 

/ . / 

II*  READ  VERTICAL  SYNC  COUNTER  */ 

I*  int  syncr( ) 

/ . / 
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j^define  SYNCR  45 
^define  syncr(  )  graphio( SYNCR, 1 , 0) 

^/*  SHOW  CONFIGURATION  */ 

/*  show( )  * 

I . ' 

^define  SHOW  46 

^define  show( )  graphio{ SHOW, 1 , 0) 


■/*** . . 

/*  READ  STATUS  */ 

I/*  Stdt(  )  */ 

' . «/ 


#def ine  STAT  47 

^define  stat(  )  graphio(STAT,  1 


I 


. . */ 

/*  FIND  OPAQUE  PIXEL  */ 

/*  f ind( y ,  xl , x2 )  int  y,x1,x2; 
. . * - - 


0) 

*/ 


IjPdefine  FIND  48 

#def ine  find(y,x1 ,x2)  graphio( FIND, y , xl , x2 , 1 , 0 ) 

/*********»**»*»,,«,»»»*»/ 

I/*  LOAD/ENABLE  CLIPPING  */ 

*  /*  clip(x1 ,y1 ,x2,y2)  int  x1,y1,x2.y2;  */ 

/ . . 

^define  CLIP  49 

^define  clip(x1 , y 1 , x2 , y2  )  graph io( CLIP , xl , yl , x2 , y2 ) 


/ . ***** . / 

/*  LOAD/DISABLE  CLIPPING  «/ 

/*  clipl(x1 ,yi ,x2,y2)  int  x1,y1,x2,y2;  */ 

,  . . . 

^define  CLIPL  50 

^define  clipl(x1 , yl , x2 , y2 )  graphlo( CLIPL , xl , yl , x2 , y2 ) 

/ . . . / 

/*  ENABLE  CLIPPING  */ 

*  /*  clipe(  )  »/ 

. . . 


]#def ine  CLIPE  51 
#def ine  clipe( )  graphio(CLIPE) 

. . . 

I/*  DISABLE  CLIPPING  */ 

/*  clipd(  ) 

. . . 


*/ 


I 

I 


\ 
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■^define  CLIPD  52 

^define  clipd(  )  graphio(CLIPD) 

|/**M . */ 

■/*  SET  (REAO)  TRANSLATION  */ 

/*  tranr(x.y)  int  x,y;  */ 

I . ' 

#def ine  TRANR  53 

#define  tranr(x.y)  graphio(TRANR,x, y) 

1/ . ****** . **/ 

/*  SET  (WRITE)  TRANSLATION  */ 

I/*  tranw(x.y)  int  x.y:  */ 

. * . ' 

#def ine  TRANW  54 

|#define  tranw(x.y)  graphio( TRANW, x , y ) 

/* . * . / 

I/*  DEJAG  VECTOR  */ 

/*  dJag(bock, fore.xl , yl ,x2, y2)  int  bock , fore, xl , yl , x2, y2;  */ 

/**** . / 

Itfdefine  DJAG  55 

^define  djag(back , fore.xl , yl ,x2, y2 )  graph io( DJAG, (back<<8) ! fore ,x1 ,yl ,x2,y2) 

/*************«**«/ 

I/*  DEJAG  (RIGHT)  */ 

■/*  d jogr( back, fore, xl , yl , x2, y2)  int  back , fore , xl , yl , x2 , y2 ;  */ 

/ . / 

^define  DJAGR  56 

#define  djogr(back , fore.xl , y 1 , x2 , y2 )  graph io( DJAGR, ( back<<8) ! fore.xl , y 1 , x2, y2) 

/*** . / 

/*  DEJAG  (LEFT)  */ 

/*  djagl(back , fore , xl , y 1 , x2 , y2)  int  back , fore , xl , yl , x2 , y2 :  */ 

/ . ***** . / 

^define  DJAGL  57 

#tief ine  djagl(back , fore.xl , yl , x2 , y2 )  graph io( DJAGL , (back< <8) ! fore.xl , yl , x2 , y2 ) 

/*** . / 

/*  SCREEN  0  -  640  mode  1  -  512  mode  »/ 

/*  screen(size)  int  size;  */ 

/***** . / 

,#define  SCREEN  58 

|  ^define  screen(size)  graphio(SCREEN, 025+( (size<<8)&255) ) 

/ . **** 

»  »  DISPLAY  MODE  *  all  this  must  change! !!!!!!!!! 

^disp(n) 

I 

I 


V 
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r n: 

if  (n  --  1)  0RPG(1 ,0x1015,0); 

I  else  if  (n  «-  2)  ORPG( 1 , 0x1 1 15 , 0) ; 

else  if  (n  ««  3)  ORPG( 1 , 0x121 5 , 0 ) ; 

>  */ 

/*** . **/ 

»'*  NO-OPERATION  */ 

■/*  noop( )  */ 

/ . ****/ 

K  define  NOOP  59 

define  noop( )  graphio( NOOP ) 

I' . * . I 

' *  LOAD  IMAGE  IMMEDIATE  */ 

/*  limgi(x1 , yl , x2 , y2 , buffer , n )  int  xl , yl , x2 , y2 , “buffer , n ;  */ 

|?define  LIMGI  60 

#def ine  limgi(x1 , yl , x2, y2 , buffer , n )  graphio( LIMGI , xl , yl , x2 , y2 , n , buffer ) 


| . ****/ 

UNLOAD  IMAGE  IMMEDIATE  */ 

/*  uimgi(x1 , yl , x2 , y2 , buffer , n )  int  xl , yl , x2 , y2 , “buffer , n;  */ 

r . ; 

#define  UIMGI  61 

.^define  uimgi(x1 , yl , x2 , y2 , buffer , n )  graphio( UIMGI , xl , yl , x2 , y2 , n , buffer ) 

7 . . . / 

/*  LOAD  RUNLENGTH  IMAGE  IMMEDIATE  */ 

'*  lruni(x1 , yl , x2 , y2 , buffer , n )  int  xl , yl , x2, y2 , “buffer , n ;  */ 

' . * . / 


#def ine  LRUNI  62 

‘define  lruni(x1 , y 1 , x2 , y2 , buffer , n  )  graph io( LRUNI , xl , yl , x2 , y2 . n , buffer ) 

/**** . * . / 

'*  UNLOAD  RUNLENGTH  IMAGE  IMMEDIATE  */ 

'*  uruni(x1 , yl , x2 , y2 , buffer , n )  int  xl , yl , x2 , y2 , “buf f er , n ;  »/ 

7 . . 

i  .^define  URUNI  63 

i/def ine  uruni(x1 , y 1 , x2 , y2 , buffer, n )  graphio( URUNI , xl , y 1 , x2 , y2 , n , buffer ) 
l^define  SCTEXT  64 

lydefine  sctext(t,sxsy, color, x,y,n, string )\ 
graphio( SCTEXT, t, sxsy , color , x, y, n , (n+1 )  >>  1, string) 

(^define  EFLASH  65 

/define  eflash(xs , ys , x0 , y0 , xl , yl )  graph io(EFL ASH, xs, ys , x0 , y0 , xl , yl ) 

f  define  FBLIT  66 

define  fblit(bitplane, color)  graphio( FBLIT, bltplane, color ) 

I 

!  I 
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|#def  ine  DTHRC  DTHRON 

^define  dthrc( )  graphio(DTHRON) 

|#def  ine  OAMVG  67 
^define  damvg( )  graphio( DAMVG ) 

#define  DAMVX  68 
J#define  damvx{ )  graphio(DAMVX) 

*#def ine  DAMGG  69 
#define  damgg( )  graphio( DAMGG) 

■  #def  ine  DAMVV  70 
#define  damvv( )  graphio( DAMVV ) 

J#define  EGOV  71 

#define  egov(  )  graphio( EGOV ) 

|#def ine  DGOV  72 
^define  dgov( )  graphio(DGOV) 

I  ^define  DTHRL  73 

#define  dthrl(  )  graphio(DTHRL ) 

#def ine  DTHRLC  7A 
J#define  dthrlc( )  graphio(DTHRLC) 

#def ine  BOXSO  75 

Itfdefine  boxsq(xs0 , ys0, xsl , ysl , xd0, yd0 , xdl , ydl )\ 
graphio( BOXSO, xs0, ys0,xs1 .ysl ,xd0,yd0,xd1 , ydl ) 

#def ine  RMAP  76 

^define  rmap(n)  graphio( RMAP ,  n) 

^define  RMAPL  77 

,#define  rmapl(start,  count,  string)\ 

graphio( RMAPL,  ((start)  <<  8)  !  ((count)  S  255),  ((count)  +  l)/2,  strin 

^define  STIP8  78 

^define  stip8( )  graphio(STIP8) 

"  ^define  STIP16  79 
^define  stip16()  graphio(STIP16 ) 

-  #define  BOXZV  80 

#define  boxzv(sx0, sy0, sxl , syl , dx0, dy0, dxl , dyl )\ 

J  graphic( BOXZV , sx0 , sy0, sxl , syl , dx0, dy0 , dxl , dyl ) 

I 

I 

I 

I 


I 


I 

I 

I 
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#def ine 

BORDER 

15 

#def ine 

INLEFT1 

140 

^define 

INLEFT2 

180 

^define 

INRIGHT1 

460 

#def ine 

INRIGHT2 

500 

#def ine 

0UTB0T1 

100 

#def ine 

0UTB0T2 

140 

#def ine 

0UTT0P1 

340 

#def ine 

0UTT0P2 

380 

1987 


I 


CURSOR  INFORMATION 


I 

I 

I 

I 


Conf igurable  info: 
*/ 

#def ine  MINX 
#def ine  MINY 
#def ine  MAXX 
#def ine  MAXY 


0 

0 

639 


479 


09:20  AM 


! 


i 

1 

I 

I 

I 
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This  is  lvm.h  */ 


^include  "gwindows.h" 


Cursor  types 


#def ine  XHCUR  0 
^define  SWCUR  1 
^define  SOCUR  2 
#def ine  SECUR  3 
I  ^define  WECUR  4 
#def ine  EACUR  5 
#def ine  NWCUR  6 
^define  NOCUR  7 
#define  NECUR  8 
#def ine  CRCUR  9 


/*  crosshair  */ 
/*  southwest  */ 
/*  south  */ 
/*  southeast  */ 
/*  west  */ 
/*  east  */ 
/*  northwest  */ 
/*  north  »/ 
/*  northeast  */ 
j*  circle  •/ 


#def ine  MAXTRACK  127 


/*  maximum  number  of  mission  tracks  in  mem  */ 


parameters  for  display  of  various  icons 


|  /*  parameters  for  display  of  various  icons  */ 

^define  ICON_SAM  0 

i  ^define  ICONJRADIO  1 

J  ^define  ICON_RADAR  2 

#def ine  ICON_POST_ENEMY  3 

/*  icon  class  values  and  definitions  */ 

^define  BRIGADE  0 

#def ine  CORPS  1 

#def ine  HO  2 

#def ine  REGIMENT  3 

#def ine  DIVISION  4 

#define  COA  5 

#def ine  TERRAIN  6 

#define  BUUE_UNIT  0 

#def ine  REDJJNIT  8 

•  typedef  struct 

{ 

float  x,  y; 

)  FPOINT ; 

I  typedef  struct 


Ilong  lot; 
long  Ion; 
unsigned  class; 


/*  latitude  of  the  icon,  and  primary  sort  key  */ 

/*  longitude  of  the  icon,  and  secondary  sort  key  */ 
/*  classification  of  type  of  icon  •/ 


LVM.H 
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|  }  icon_struct;  /*  icon  description  structure  */ 

extern  int  markx,  marky;  /*  zoom  mark  location  (pixel  coordinates)  **/ 

_  extern  long  mark_lat,  mark_lon; 

■  extern  int  show_mask;  /*  mask  of  icons/tracks  to  be  shown  */ 

extern  icon_struct  “icons; 

|  extern  IMAGE  “icontab;  /»  table  pointing  to  graphics  icons  in  memory  */ 

/*  icons  are  displayed  in  area  of  interest  bounded  by  the  lat/longs  of 
the  following  variables  */ 

I  extern  long  aoi_lat1 ,  aoi_lon1 ,  aoi_lat2,  ooi_lon2; 
extern  int  aoi_x1,  aoi_y1 ,  aoi_x2,  aoi_y2; 

J  pix_to_latlon( long,  long,  long  *,  long  »); 
latlon_to_pix( long ,  long,  long  *,  long  *); 
long  split_deg(long) ; 

£  long  merge_deg( long ) ; 

I 

I 

! 

i 

i 


i 

i 

i 

i 
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I 

I 

I 

I 

I 

I 

I 


#ifndef  PASCAL 
#define  PASCAL  pascal 
#endif 


#define  EOR  ’\22’ 
#define  FALSE  0 

^define  TRUE  1 

#define  NULL  0 

#define  FAR  far 

#define  NEAR  near 

#def ine  LONG  long 

#define  VOID  void 


typedef 

typedef 

typedef 

typedef 

typedef 

typedef 

typedef 

typedef 


unsigned  char  BYTE 
unsigned  short  WORD 
unsigned  long  DWORD 
int  BOOL: 

char  *PSTR; 

char  NEAR*NPSTR 
char  FAR  *LPSTR 
int  FAR  *LPINT 


I 


1 

I 

I 

I 


\ 
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(ATOM  FAR  PASCAL  AddAtom(  LPSTR  ); 

ATOM  FAR  PASCAL  DeleteAtom(  ATOM  ); 

ATOM  FAR  PASCAL  FindAtom(  LPSTR  ); 

I  WORD  FAR  PASCAL  GetAtomName(  ATOM,  LPSTR,  int  ); 

HANDLE  FAR  PASCAL  GetAtomHandle(  ATOM  ); 

^define  MAKEINTATOM( i )  ( LPSTR )( (DWORD)( (WORD )i ) ) 

#endif 

[/*  Interface  to  the  user  profile  */ 

tint  FAR  PASCAL  GetProf ilelnt(  LPSTR,  LPSTR,  int  ); 

int  FAR  PASCAL  GetProf ileString(  LPSTR,  LPSTR,  LPSTR,  LPSTR,  int  ) 

SOOL  FAR  PASCAL  WriteProf ileString(  LPSTR.  LPSTR,  LPSTR  ); 

|/*  Interface  to  FatalExit  procedure  »/ 

void  FAR  PASCAL  FatalExit(  int  ); 

|/*  Interface  to  Catch  and  Throw  procedures  */ 

typedef  int  CATCHBUF [  9  ]; 

Itypedef  int  FAR  “LPCATCHBUF; 
int  FAR  PASCAL  Catch (  LPCATCHBUF  ); 

void  FAR  PASCAL  Throw(  LPCATCHBUF,  int  ): 


HANDLE  FAR  PASCAL  CreateMetaFile( LPSTR) ; 

HANDLE  FAR  PASCAL  CloseMetaFile( HANDLE ) ; 

HANDLE  FAR  PASCAL  GetMetaFileBits( HANDLE ) ; 

HANDLE  FAR  PASCAL  SetMetaFileBits( HANDLE ) ; 

long  FAR  PASCAL  GetCurrentTime( void ) ; 

BOOL  FAR  PASCAL  IsChild( HWND ,  HWNO); 


.Pifndef 

WORD 

WORD 

LONG 

LONG 

WORD 

WORD 

-ONG 

LONG 

^endif 


NOWINOFFSETS 
FAR  PASCAL 
FAR  PASCAL 
FAR  PASCAL 
FAR  PASCAL 
FAR  PASCAL 
FAR  PASCAL 
FAR  PASCAL 
FAR  PASCAL 


GetWindowWord( HWND ,  int); 
SetWindowWord( HWND ,  int,  WORD); 
GetWlndowLong( HWND ,  int); 
SetWindowLong( HWND ,  int,  LONG); 
GetClassWord( HWND ,  int); 
SetClassWord( HWND ,  int,  WORD); 
GetClassLong(HWND,  int); 
SetClassLong( HWND ,  int,  LONG); 


'  HWND 
f  BOOL 
1  HWND 
1  300L 
int 


FAR  PASCAL  GetParent( HWND ) ; 

FAR  PASCAL  EnumChildWindows ( HWND ,  FARPROC,  LONG); 
FAR  PASCAL  FindWindOw( LPSTR ,  LPSTR); 

FAR  PASCAL  EnumWindows(  FARPROC,  LONG); 

FAR  PASCAL  GetClassName( HWNO ,  LPSTR,  int); 


*ifndef 

'farproc 

#endif 


FAR  PASCAL  SetWindowsHook( int,  FARPROC); 


I/*  Key  conversion  window  «/ 

HWND  FAR  PASCAL  CreateConvertWindow(  LPSTR,  HANDLE,  LPSTR  ); 
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I  void  FAR  PASCAL  ShowConvertWindow{  HWND,  BOOL  ): 

L/oid  FAR  PASCAL  SetConvertWindowHeight(  int  ); 

BOOL  FAR  PASCAL  IsTwoByteCharPref ix(  char  ) ; 

■?ifndef  NOMENUS 


*/*  Menu  flags  for  Add/Check/EnableMenuItem  */ 
#def ine  MF_CHANGE  0x0080 

|#define  MF~INS£RT  0x0000 

^define  MF_APPEND  0x0100 

#def ine  MF~DELETE  0x0200 

Itfdefine  MF_BYPOSITION  0x0400 

^define  MF_SEPARATOR  0x0800 

#define  MF_BYCOMMAND  0x0000 

^define  MF_GRAYED  0x0001 

IiPdefine  MF_DISABLED  0x0002 

^define  MF_ENABLED  0x0000 

^define  MF_CHECKED  0x0008 

_#define  MFJJNCHECKED  0x0000 

|#define  MF_BITMAP  0x0004 

i#define  MF~STRING  0x0000 

^define  MF_POPUP  0x0010 

|#def ine  MF_MENUBARBREAK  0x0020 
#define  MF_MENUBREAK  0x0040 

^define  MF_HILITE  0x0080 

#def ine  MF  UNHILITE  0x0000 


l^endif  /*  of  NOMENU  */ 

/*  System  Menu  Command  Values  */ 
#if ndef  NOSYSCOMMANDS 
^define  SC_SIZE  0xf000 

#def ine  SC_MOVE  0xf010 

^define  SC_ICON  0xf020 

^define  SC_ZOOM  0xf030 

^define  SC_NEXTWINDOW  0xf040 

^define  SC_PREVWINDOW  0xf050 

Ideflne  SC_CLOSE  0xf060 

^define  SC_VSCROLL  0xf070 

#def ine  SC_HSCROLL  0xf080 

#def ine  SC_MOUSEMENU  0xf090 

^define  SC_KEYMENU  0xf100 

#endif 


/•  Resource  loading  routines  */ 

#ifndef  NOBITMAP 

H8ITMAP  FAR  PASCAL  LoadBitmap(  HANDLE,  LPSTR  ); 
tfendif 


HCURSOR 

i /*  Standard 
J  #def ine  IDC 
^define  IDC 

I#def ine  IDC 
^define  IDC 
^define  IDC 


FAR  PASCAL  LoadCursor(  HANDLE,  LPSTR  ); 
cursor  IDs  */ 

ARROW  MAKEINTRESOURCE( 32512 } 

'iBEAM  MAKEINTRESOURCE{ 3251 3 ) 

"WAIT  MAKEINTRESOURCE( 32514) 

"CROSS  MAKEINTRESOURCE( 32515 ) 

"UPARROW  MAKEINTRESOURC£( 3251 6 ) 
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i#define  IDC_SIZE 
(^define  IDC  ICON 


MAKEINTRESOURCE( 32640 ) 
MAKEINTRESOURCE( 32641 ) 


HICON 


FAR  PASCAL  LoadIcon(  HANDLE,  LPSTR  ); 


#ifndef  NOICON 

I/*  Standard  icon  IDs  */ 

#define  IDI_APPLICATION  MAKEINTRESOURCE(32512) 
^define  IDI_HAND  MAKEINTRESOURCE< 3251  3 ) 

|#define  IDI_OUESTION  MAKEINTRESOURCE( 32514) 
#define  IDI_EXCLAMATION  MAKEINTRESOURCE( 3251 5 ) 

jSfriof i  ritt  THT  A<5TrDTCl^  MAUTTMTOCCnilDrc  /  TOKlC  N 


^define  IDI_ASTERISK 
#endif 


MAKEINTRESOURCE( 32516 ) 


#ifndef  NOMENUS 


HMENU 

[#endif 


FAR  PASCAL  LoadMenu(  HANDLE,  LPSTR  ); 


[short 

BOOL 


FAR  PASCAL  LoadString(  HANDLE,  unsigned.  LPSTR,  int  ); 

FAR  PASCAL  AddFontResource(  LPSTR  ): 

FAR  PASCAL  RemoveFontResource(  LPSTR  ); 


|#ifndef  NOKANJI 
#def ine  CP_HWND 
#def ine  CP_OPEN 
|#def ine  CP  DIRECT 


typedef  struct{ 
short  x; 
short  y; 
LPSTR  lpV 
LPSTR  IpR 
I  short  Yorr 
short  Res 


y; 

lpYomi ; 
IpResult ; 
Yomi Count; 
ResultCount; 


')  KANO I STRUCT; 

[typedef  KANJISTRUCT  FAR  *LPKANJISTRUCT ; 


VOID 

.VOID 

BOOL 

VOID 

#endif 


FAR  PASCAL  MoveConvertWindow  (short,  short); 

FAR  PASCAL  ConvertRequest  (HWNO,  LPKANJISTRUCT) ; 
FAR  PASCAL  SetConvertParams(short,  short); 

FAR  PASCAL  SetConvertHook(BOOL); 


|/*  Conventional  dialog  box  and  message  box  command  IDs 
^define  IDOK  1 

Itfdef ine  IDCANCEL  2 

^define  IDABORT  3 

^define  IDRETRY  4 

^define  IDIGNORE  5 

K  define  IDYES  6 

define  IDNO  7 
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|#lfndef  NOCTIMGR 

I /I  mon°9er  structures  &  definitions  */ 

/  tdit  control  class  stuff  */ 

/*  styles  */ 

#ifndef  NOWINSTYLES 
■^define  ES_LEFT  0l 

p'define  ES_CENTER  1L 

#define  ES~RIGHT  2l 

I /'define  ESjmjLTILINE  4L 

^define  ES_AUTOVSCROLL  64L 

/define  ES_AUT0HSCR01L  128L 

/define  ES  NOHIDESEL  256L 

gtendif 

/*  notification  codes  */ 

^define  EN_SETFOCUS  0x0100 

■/define  EN_KILLFOCUS  0x0200 

■/define  EN_CHANGE  0x0300 

#define  EN_ERRSPAC£  0x0500 

•/define  EN_HSCROLL  0x0601 

^define  EN_VSCROLL  0x0602 


/*  control  messages:  * 

tifndef  NOWINMESSAGES 
define  EM_GETSEl 
/define  EM_SETSEL 
m /define  EMJ3ETRECT 
■/define  EM_SETRECT 
■/define  EM_SETRECTNP 
/define  EM_SCROLL 

1  /define  EM_LINESCROLL 
/define  EM_GETMODIFY 
/define  EM_SETMODIFY 

J  /define  EM_GETLINECOUN 
/define  EM~LINEINDEX 
/define  EM_SETHANDLE 
/define  EM_GETHANDLE 

1  /define  EMJ5ETTHUMB 
/define  EMJ.INEIENGTH 
/define  EM_REPLACESEL 

J  /define  EMjSETFONT 
/define  Em'geHINE 
//define  EM~LIMITTEXT 
/define  EM  CANUNDO 


| /define  EM_UNDO 
J /define  EM~FMTLINES 
#endif 


WM_uSER+0 

WM_USER+1 

WM_USER+2 

WM_USER+3 

WM_uSER+4 

WM_USER+5 

WM~USER+6 

WM_USER+8 

WM_USER+9 

WM~USER+10 

WM_USER+11 

WM_USER+12 

WM~USER+13 

WMjJSER+14 

WMJJSER+17 

WM~USER+18 

WM~(JSER+1 9 

WM~USER+20 

WMJJSER+21 

WMJJSER+22 

WM~USER+23 

WM~USER+24 


It*  button  control  styles  */ 
/define  BS_PUSHBUTTON  0L 
/define  8S_DEFPUSH8UTT0N  1L 


I  /define  8S_CH£CKB0X  2L 

/define  BS_AUTOCH£CKBOX  3L 
#def ine  BS_RADIOBUTTON  4L 


f 
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i #def ine 

BS_3STATE 

5L 

|#def ine 

BS~AUT03STAT£ 

6L 

tfdef ine 

BS~GROUPBOX 

7L 

^define 

m 

BS_USERBUTTON 

8L 

»/*  user 

button  notification 

codes 

#def ine 

BN_CLICKED 

0 

®#def ine 

BN_PAINT 

1 

^define 

BN~HILITE 

2 

#def ine 

BN_UNHILITE 

3 

#define 

BN_DISABLE 

4 

control  messages  * 

/ 

#def ine 

BM_GETCHECK 

WM_ 

USER+0 

•#define 

BM_SETCHECK 

WM~ 

USER+1 

■#def ine 

BM_GETSTATE 

WM_ 

USER+2 

#def ine 

BM_SETSTATE 

WM_ 

USER+3 

WINDOWS. H 
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'/*  Stotic  control  constants  */ 


#define  SSJ.EFT 

(^define  SS_CENTER 
#def ine  SS_RIGHT 
#define  SS_ICON 
^define  SS_BLACKRECT 

|#def ine  SS_GRAYRECT 
^define  SS_WHITERECT 
^define  SS_BLACKFRAME  7L 

|#def ine  SS_GR AY FRAME  BL 
^define  SS_WHITEFRAME  9L 
#define  SS  USERITEM 


0L 
1 L 
2L 
31 
4L 
5L 
6L 


10  L 


1 


/•  Dialog  manager  routines  */ 


I 


#ifndef  NOMSG 

BOOL  FAR  PASCAL  IsDialogMessage( HWND ,  LPMSG); 

#endif 


#ifndef  NORECT 

Ivoid  far  PASCAL  MapDialogRect(HWND,  LPRECT ) ; 

?endif 


I 

I 


,#ifndef  NOCTLMGR 

int  FAR  PASCAL  DlgOirList( HWND,  LPSTR,  int,  int,  unsigned) 

IBOOL  far  PASCAL  DlgDirSelect( HWND ,  LPSTR,  int); 


/*  Dialog  style  bits  */ 

^define  DS_ABSALIGN  0x000000001 L 
#def ine  DS_SYSMODAL  0X000000002L 


t 


define  LB_CTLCODE  0L 


/*  Listbox  control  return  values  */ 
■('define  L8_OKAY  0 

Wdefine  L8_ERR  -1 

#def ine  LB~ERRSPAC£  -2 


I 


I 


WINDOWS. H 


1  PAGE  38  February  16,  1987  09:23  AM 


1 

I 


/*  listbox  notification  codes  */ 
#define  L8N_ERRSPAC£  -2 

^define  LBN_SELCHANGE  1 

^define  LBN_D8LCLK  2 

#endif 


I 

I 


I 


/*  listbox  messages  */ 

#ifndef  NOWINMESSAGES 
#deflne  LB_ADDSTRING  1+WM_USER 
#define  LB_INSERT STRING  2+WMJJSER 
^define  LB_DELETESTRING  3+WMJJSER 
#define  LB_REPLACESTRING  4+WM~USER 
#define  LB_RESETCONTENT  5+WM_USER 
#define  LB_SETSEL  6+WM_USER 

#define  LB_SETCURSEL  7+WM~USER 
#define  LB_GETSEL  8+WM_USER 

#define  LBJ3ETCURSEL  9+WM_USER 
#def ine  LB_GETTEXT  10+WMJJSER 

#define  LBJ5ETTEXTLEN  11+WMJJSER 
#def ine  LB_GETCOUNT  12+WM~USER 

#define  LB_SELECTSTRING  13+WM_USER 
LB_DIR  14+WM~US£R 

LB_ MSGMAX  1 5+WM~USER 


#def ine 
#define 
#endif 


/*  listbox  style  bits  */ 
#ifndef  NOWINSTYlES 
^define  LBS_NOTIFY 
LBS_SORT 
LBS_NOREDRAW 
LBS_MULTIPLESEL 
LBS  STANDARD 


fdefine 
#def ine 
#def ine 
#define 
#endif 


0x0001 L 
0X0002L 
0X0004L 
0X0008L 
(LBSJMOTIFY 


*/ 


/*  scroll  bar  styles 
#if ndef  NOWINSTYLES 
#define  SBS_HORZ 
#def ine  S8S_VERT 
^define  SBS_TOPALIGN 
^define  SBSJ-EFTALIGN 
#def ine  SBS_BOTTOMALIGN 
#define  SBS  RIGHTALIGN 
#def ine  SBS_SIZEBOXTOPLEFT ALIGN 
#def ine  SBS_SIZEBOXBOTTOMRIGHT ALIGN 
^define  $8S~SIZEB0X 
#endif 
#endif 


LBS  SORT  !  WS  VSCROLL  !  WS  BORDER) 


0X0000L 
0x0001 L 
0X0002L 
0X0002L 
0X0004L 
0X0004L 
0X0002L 
0X0004L 
0X0008L 


#ifndef  NOSOUND 


int 

int 

int 

int 

int 

int 


FAR  PASCAL  OpenSound(); 

FAR  PASCAL  C10SeSound( ) ; 

FAR  PASCAL  SetVoiceOueueSlze( int ,  int); 

FAR  PASCAL  SetVoiceNote{ int ,  int,  int,  int); 

FAR  PASCAL  SetVoiceAccent( int ,  int,  int,  int,  int); 
FAR  PA SCAL  SetVoiceEnvelope( int.  int,  int); 


I 


\ 
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int 

int 

int 

int 

int 

int 

int 


ILPINT 
int 
int 
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FAR  PASCAL  SetSoundNoise( int ,  int); 

FAR  PASCAL  SetVoiceSound( int ,  int,  int); 
FAR  PASCAL  StartSound( ) ; 

FAR  PASCAL  StopSound( ) ; 

FAR  PASCAL  WaitSoundState( int ) ; 

FAR  PASCAL  SyncAllVoices( ) ; 

FAR  PASCAL  CountVoiceNotes( int ) ; 

FAR  PASCAL  GetThresholdEvent( ) ; 

FAR  PASCAL  GetThresholdStatus( ) ; 

FAR  PASCAL  SetVoiceThreshold( int ,  int); 


I 

I 

I 

I 

I 

I 


/*  constants  used  to  specify  return  condition  for  WaitSoundState  */ 


#def ine  OUEUEEMPTY  0 
#def ine  THRESHOLD  1 
#def ine  ALLTHRESHOLD  2 

/*  constants  used  to  specify  accent  mode  */ 


#def ine 
#def ine 
#def ine 

/*  constants 
#define  . 
^define 
#define 
#define 

ifdefine 
#def ine 
^define 
#def ine 


SJMORMAL 
S_LEGATO 
S  STACCATO 


0 

1 

2 


used  to  specify 
S_PERI0D512  0 
S_PERIOD1 024  1 

S_PERIOD2048  2 
S_PERIOD VOICE  3 

S_WHITE5 1 2  4 

S_WHITE1 024  5 

S_WHITE2048  6 
S  WHITEVOICE  7 


source  in  SetSoundNoise  */ 

/*  freq  «  N/512  high  pitch,  less  coarse  hiss  */ 
/*  freq  «*  N/1024  */ 

/*  freq  •  N/2048  low  pitch,  more  coarse  hiss  */ 
/*  source  is  frequency  from  voice  channel  (3)  */ 

/«  freq  -  N/512  high  pitch,  less  coarse  hiss  */ 
/*  freq  -  N/1024  */ 

/*  freq  «  N/2048  low  pitch,  more  coarse  hiss  */ 
/*  source  is  frequency  from  voice  channel  (3)  */ 


#def ine 
,  ^define 
#def ine 
J  ^define 
^define 

1#deflne 
#define 
0def ine 
•  ifdefine 
I  ^define 
■*  ^define 
#def ine 

1#def  ine 
^define 
#def ine 

I^deflne 
tfendlf 


S_SERDVNA 

S~SEROFM 

S_SERMACT 

S_SERQFUL 

S_SERBDNT 

S_SERDLN 

S_  SERDCC 

S_SERDTP 

S_SERDVL 

S_SERDMD 

S~S£RDSH 

S~SERDPT 

S_SERDFQ 

S_SERDDR 

S_SERDSR 

S  SERDST 


-1 

/* 

device  not  available 

-2 

/** 

out  of  memory  */ 

-3 

/* 

music  active  */ 

-4 

/* 

queue  full  */ 

-5 

/* 

invalid 

note  */ 

-6 

/* 

invalid 

note  length 

-7 

/* 

invalid 

note  count  *, 

-8 

/* 

invalid 

tempo  */ 

-9 

/* 

invalid 

volume  */ 

-10 

/* 

invalid 

mode  */ 

-11 

/* 

invalid 

shape  */ 

-12 

/* 

invalid 

pitch  */ 

-13 

/* 

invalid 

frequency  */ 

-14 

/* 

invalid 

duration  */ 

-15 

/* 

invalid 

source  */ 

-16 

/* 

invalid 

state  */ 

\» 

/* 


#if ndef  NOCOMM 
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r* 

deb  field  definitions. 


L 

•^define  NOPARITY 

0 

** ! 

^define  ODDPARITY 

1 

*#define  EVENPARITY 

2 

J#deflne  MARKPARITY 

3 

^define  SPACEPARITY 

4 

■#define  ONESTOPBIT 

0 

•#define  0NE5ST0PBITS 

1 

^define  TWOSTOPBITS 

2 

l#define  IGNORE 

0 

/•  Ignore  signal 

*/ 

*#define  INFINITE 

1 

0xf f f f 

/*  Infinite  timeout 

*/ 

I" 

■**  Comm  Device  Driver  Error  Bits . 

*** 

|#define  CE  RXOVER 

0x0001 

/*  Receive  Queue  overflow 

— / 

*/ 

^define  CE  OVERRUN 

0x0002 

/*  Receive  Overrun  Error 

*/ 

-^define  CE  RXPARITY 

0x0004 

/*  Receive  Parity  Error 

*/ 

■  #def  ine  CE  FRAME 

0x0008 

/*  Receive  Framing  error 

*/ 

™#define  CE_BREAK 

0x0010 

/*  Break  Detected 

*/ 

#def ine  CE  CTSTO 

0x0020 

/*  CTS  Timeout 

*/ 

■  #def  ine  CE  DSRTO 

0x0040 

/*  DSR  Timeout 

*/ 

J#define  CE_RLSDTO 

0x0080 

/*  RLSD  Timeout 

*/ 

#define  CE  TXFULL 

0X0100 

/*  TX  QUEUE  IS  FULL 

*/ 

^define  CE  PTO 

0x0200 

/*  LPTx  Timeout 

*/ 

I #def ine  CE  IOE 

0x0400 

/*  LPTx  I/O  Error 

*/ 

■  ^define  CE  DNS 

0x0800 

/*  LPTx  Device  not  selected 

*/ 

^define  CE_OOP 

0x1000 

/*  LPTx  Out-Of-Paper 

*/ 

jj  #def ine  CE_MODE 

0x8000 

/*  Requested  mode  unsupported 

*/ 

|** 

Initialization  Error 

«« 

Codes 

^define  IE_BADID 

-1 

/*  Invalid  or  unsupported  id 

**/ 

*/ 

#define  IE_OPEN 

-2 

/*  Device  Already  Open 

•/ 

1  #def ine  IE  NOPEN 

-3 

/*  Device  Not  Open 

*/ 

■  ^define  IE_MEMORY 

-4 

/*  Unable  to  allocate  queues 

*/ 

^define  IEJ3EFAULT 

-5 

/*  Error  in  default  parameters 

*/ 

■  #define  IE  HARDWARE 

-10 

/*  Hardware  Not  Present 

-/ 

l#def ine  IE  BYTESIZE 

-11 

/*  Illegal  Byte  Size 

*/ 

P#deflne  IE_BAUDRATE 

-12 

/*  Unsupported  BaudRate 

*/ 
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I, . 

Event  Definitions 


■'define  EV  RXCHAR 

0x0001 

/*  Any  Character  received 

/ 

*/ 

"define  EV_RXFLAG 

0x0002 

/*  Received  certain  character 

*/ 

#def ine  EV  TXEMPTY 

0x0004 

/*  Transmitt  Queue  Empty 

*/ 

•define  EV  CTS 

0x0008 

/*  CTS  changed  state 

•/ 

■'define  EV_DSR 

0x0010 

/*  DSR  changed  state 

*/ 

#def ine  EV_RLSD 

0x0020 

/*  RLSD  changed  state 

*/ 

■^define  EV  BREAK 

0x0040 

/*  BREAK  received 

*/ 

•define  EV  ERR 

0x0080 

/*  Line  status  error  occurred 

*/ 

"define  EV_RING 

0x0100 

/«  Ring  signal  detected 

*/ 

^define  EV  PERR 

I 

0x0200 

/*  Printer  error  occured 

*/ 

■**  Escape  Functions 

(■'define  SETXOFF 

1 

/*  Simulate  XOFF  received 

- / 

*/ 

#def ine  SETXON 

2 

/*  Simulate  XON  received 

*/ 

-^define  SETRTS 

3 

/*  Set  RTS  high 

*/ 

■/define  CLRRTS 

4 

/«  Set  RTS  low 

*/ 

•■/define  SETDTR 

5 

/*  Set  DTR  high 

*/ 

^define  CLRDTR 

6 

/*  Set  DTR  low 

*/ 

■/define  RESETDEV 

7 

/*  Reset  device  if  possible 

*/ 

**  Device  Descriptor  Block  Definition 

f  •* 

. * . * . * . * . * . * . / 


#def ine 

LPTx  0x80 

/* 

Set  if  ID  is  for  LPT  device 

*/ 

..ypedef 

struct  { 

BYTE 

Id; 

/* 

Internal  Device  ID 

*/ 

WORD 

BaudRate; 

/* 

Baudrate  at  which  runing 

*/ 

BYTE 

ByteSize; 

/* 

Number  of  bits/byte,  4-8 

*/ 

BYTE 

Parity; 

/* 

0-4-None , Odd , Even , Mark ,  Space 

■7 

BYTE 

StopBlts; 

/* 

0,1,2  -  1,  1.5,  2 

*/ 

f  WORD 

RlsTimeout; 

/* 

Timeout  for  RLSD  to  be  set 

*/ 

J  WORD 

CtsTlmeout; 

/* 

Timeout  for  CTS  to  be  set 

7 

WORD 

DsrTimeout; 

/* 

Timeout  for  DSR  to  be  set 

*/ 

1 


BYTE 

BYTE 


fBinary :  1 ; 
fRtsDisable : 1 ; 


/*  Binary  Mode  (skip  EOF  check  */ 
/*  Don’t  assert  RTS  at  init  time*/ 
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BYTE 

f  Parity:  1; 

/* 

Enable  parity  checking 

*/ 

BYTE 

fOutxCtsFlow: 1  ; 

/* 

CTS  handshaking  on  output 

*/ 

BYTE 

fOutxDsrFlow: 1  ; 

/* 

DSR  handshaking  on  output 

*/ 

BYTE 

f Dummy :  2 ; 

/* 

Reserved 

*/ 

BYTE 

fDtrDisable :  1 : 

/* 

Don't  assert  DTR  at  init  time 

*/ 

BYTE 

f OutX :  1 ; 

/* 

Enable  output  X-ON/X-OFF 

*/ 

BYTE 

flnX:  1; 

/* 

Enable  input  X-ON/X-OFF 

*/ 

8YTE 

fPeChar :  1 ; 

/* 

Enable  Pority  Err  Replacement 

*/ 

BYTE 

fNull:  1; 

/* 

Enable  Null  stripping 

*/ 

BYTE 

fChEvt:  1; 

/* 

Enable  Rx  character  event. 

*/ 

BYTE 

fDtrflow:  1 ; 

/* 

DTR  handshake  on  input 

*/ 

BYTE 

BYTE 

f Rtsf low:  1 ; 
f Dummy 2 :  1 ; 

/* 

RTS  handshake  on  input 

*/ 

char 

XonChar ; 

/* 

Tx  and  Rx  X-ON  character 

*/ 

char 

XoffChar ; 

/* 

Tx  and  Rx  X-OFF  character 

*/ 

WORD 

XonLim; 

/* 

Transmit  X-ON  threshold 

*/ 

WORD 

XoffLim; 

/* 

Transmit  X-OFF  threshold 

*/ 

char 

PeChar ; 

/* 

Parity  error  replacement  char 

*/ 

char 

EofChar ; 

/* 

End  of  Input  character 

*/ 

char 

EvtChar 

/* 

Recieved  Event  character 

*/ 

WORD 
>  DCB; 

TxDelay ; 

/* 

Amount  of  time  between  chars 

*/ 

I**  Status  record  returned  by  GetCommErro. 

. . . / 


;ypedef  struct  { 


BYTE 

fCtsHold:  1; 

/* 

Transmit  is  on  CTS  hold 

*/ 

BYTE 

fDsrHold :  1; 

1* 

Transmit  is  on  DSR  hold 

*/ 

BYTE 

fRlSdHold :  1; 

/* 

Transmit  is  on  RLSD  hold 

*/ 

BYTE 

fXoffHold:  1; 

/* 

Received  handshake 

*/ 

BYTE 

fXoffSent :  1; 

/• 

Issued  handshake 

*/ 

BYTE 

fEof:  1; 

/* 

End  of  file  character  found 

*/ 

BYTE 

fTxlm:  1; 

/* 

Character  being  transmitted 

*/ 

WORD 

cblnOue; 

/* 

count  of  characters  in  Rx  Oue 

*/ 

WORD 

cbOutOue; 

/* 

count  of  characters  in  Tx  Que 

*/ 

)  COMSTAT; 

short 

FAR 

PASCAL 

OpenComm( LPSTR ,  WORD,  WORD): 

;hort 

FAR 

PASCAL 

SetCommState(DCB  FAR  *) 

] 

,hort 

FAR 

PASCAL 

6etCommState( short,  DCB 

far  *); 

short 

FAR 

PASCAL 

ReadComm( short,  LPSTR, 

lnt ) ; 

. short 

FAR 

PASCAL 

UngetCommChar( short,  char); 

i  ihort 

FAR 

PASCAL 

WriteComm( short,  LPSTR, 

int) ; 

-  short 

FAR 

PASCAL 

CloseComm( short ) ; 

short 

FAR 

PASCAL 

GetCommError( short ,  COMSTaT  FAR  *) 

.hort 

FAR 

PASCAL 

BuildCommDCB( LPSTR,  DCB 

FAR  *); 

|  .hort 

FAR 

PASCAL 

TransmitCommChar( short , 

char ) ; 

WORD  FAR  »  FAR 

PASCAL 

SetCommEventMask(  short, 

WORD) ; 
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Avord 

far 

PASCAL 

GetCommEventMask( short,  int); 

£hort 

FAR 

PASCAL 

SetCommBreak ( short ) ; 

short 

FAR 

PASCAL 

ClearCommBreak( short ) ; 

^short 

FAR 

PASCAL 

FlushComm( short,  int); 

■short 

^endif 

FAR 

PASCAL 

EscapeCommFunction( short,  int); 

1 
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^include  "intacval . h" 

long  pascal  HandleFileWindow  ( HWND ,  WORD,  WORD,  LONG); 
long  pascal  HandleBoxesWindow  (HWND,  WORD,  WORD,  LONG); 

pascal  main_dialog( hWnd ,  wMsg,  wParam,  IParam) 

HWND  hWnd ; 

WORD  wMsg,  wParam; 

LONG  IParam; 


{ 

long  li; 
int  i ; 


! 


I 

1 

I 

I 


switch(wMsg ) 

(case  WM_COM»IAND : 

switch (wParam) 

{ 

case  DLG  FILELIST : 

{ 

switch( HIWORD( IParam) ) 

( 

case  LBN_SELCHANGE : 

( 

if  (figflag  ««  40)  return  TRUE; 

li  »  SendDlgltemMessage(current_f igure ,  DLG_FILELIST , 
LB_GETCURSEL , NULL , ( LONG )NULL ) ; 
if ( li  !-  -11) 

{ 

DestroyWindow{ current_f iggre) ; 

FreeProcInstance{ current_dialog_func ) ; 
current_dialog__func  * 

MokeProcInstance( ( FARPROC )main_dialog , intocval_instance ) ; 
current_figure  -  CreateDialog( intocval_instance , 

( LPSTR)"Flgure4" ,  main_window. current_dialog_f unc ) ; 
for( i  »  0;  i<  10;  i++) 

{ 

if  ( f ilenames[i] [0]  »«  ’  ’  ) 
break ; 

SendDlgItemMessage( current_f igure , DLG_FILELIST , 

LB  ADOSTRING , NULL ,  ( LONG ) ( LPSTR )f llenames [i] ) ; 

> 

SendDlgItemMessage( current_f igure , DLG_FILELIST , 

LB  SETCURSEL, (int)li, (LONG)NULL); 

) 

figflag  »  40; 
return  TRUE; 

) 

case  LBN  DBLCLK : 

( 

SendMessage( current_f igure , WM_COMMAND , DLG_OPEN , 

( LONG )( LPSTR )NULL); 
return  TRUE; 

) 

default : 
return  FALSE; 
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) 

} 

case  DLG_OP£N: 

< 

li  »  SendDlgItemMessage( current_f igure ,  DLG_FILELIST , 
LB_GETCURSEL , NULL , ( LONG )NUlL ) ; 

SendDlgItemMessage(current_f igure , DLG_FILELIST ,  LB_GETTEXT , 
(int)li, ( LONG  )( LPSTR  )s ) ; 
open_file(s) : 
figflag  «  0; 
return  TRUE; 

) 

case  DLG_DEL£TE: 

{ 

li  =  SendDlgItemMessage( current_f igure ,  DLG_FILELIST , 
LB_GETCURSEL , NULL , ( LONG )NULL ) ; 
if ( li  ! »  -11) 

{ 

DestroyWindow( current_f igure ) ; 

FreeProcInstance( current_dialog_f unc ) ; 
current_dialog_f unc  « 

MakeProcInstance( ( FARPROC)main_dialog ,  intacval_in stance ) 
current_f igure  «  CreateDialog( intacval_instance , 

( LPSTR )"Figure4A" ,  main_window, current_dialog_f unc ) ; 
for(i  «  0;  i<  10;  i++) 

< 

if  ( filenames[i] [0]  ««  '  • ) 

break; 

SendDlgItemMessage( current_f igure ,  DLG_FILELIST , 

L8_ADDSTRING , NULL ,  ( L0NG  )( LPSTR  )filenames[i] ) ; 

) 

SendDlgItemMessage(current_f igure, DLG_FILELIST, LB_SETCURSEL , 
(int)li, ( LONG )  NULL  ) ; 

) 

figflag  «  45; 
return  TRUE; 

> 

case  DLG_NO : 

{ 

DestroyWindow( current_f igure ) ; 
FreeProcInstance(current_dialog_func ) ; 
current_dialog_func  « 

MakeProcInstance( ( FARPROC )main_dialog .  intacval_in stance ) ; 
current_f igure  -  CreateOialog( intacval_instance , 

( LPSTR  )"Figure3" ,  main_window, current_dialog_f unc ) ; 
f or( i  »  0 ;  i <  10;  i++  ) 

{ 

if  ( filenames[i] [0]  «»  ’  ’ ) 
break ; 

SendDlgItemMessage( current_f igure , DLG_FILELIST ,  LB_ADDSTRING , 
NULL,  ( LONG ) ( LPSTR ) filenames [ i] ) ; 

) 

figflag  »  30; 
return  TRUE; 

> 

case  DLG  YES: 


v 

»-  ■  •  -  -  - 
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( 

li  ■  SendDlgItemMessage( current_f igure , DLG_FILEIIST , 
L8_GETCURSEL , NULL , ( LONG  )NULL  ) ; 

SendDlgItemMessoge( current_f igure ,  DLG_FILELIST ,  LB_GETTEXT, 

( int )li , ( LONG) ( LPSTR )s ) ; 
delete_file(s) ; 
figflag  »  0; 
return  TRUE; 

> 

case  DLG_START: 

( 

destroy_current_childs( ) , 

DestroyWindow( current_f igure ) ; 

FreeProcInstance( current_dialog_func ) ; 
current_dialog_func  - 

MakeProcInstance( ( FARPROC )main_dialog ,  intacval_instance) 
current_figure  -  CreateDialog( intacval_instance, 

( LPSTR )" FigureS" ,  main_window, current_dialog_f unc ) ; 
figflag  ■  50; 
return  TRUE; 

) 

case  DLG  MISSION: 

{ 

get_mission_f iles( ); 
figflag  *  60; 
return  TRUE; 

> 

case  DLG_TERRAIN: 

{ 

get_terrain_f iles( ) ; 
figflag  »  90; 
return  TRUE; 

) 

cose  DLG_F_CAP : 

< 

get_f riendly_files( ); 
figflag  «  110; 
return  TRUE; 

) 

case  DLG_E_CAP: 

{ 

get_enemy_files( ); 
figflag  »  120; 
return  TRUE; 

) 

case  DLG  E_C0A: 

{ 

destroy_current_childs( ) ; 
current_highlight  «  DLG_E_C0A; 
one_window_two_buttons( wParam) ; 
return  TRUE; 

} 

case  DLG  F_COA: 

{ 

destroy_current_childs(  ); 
current_highlight  «  DLG_F_COA; 


\ 


Jk 
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one_window_two_buttons( wParam) ; 
return  TRUE; 

) 

case  DLG_CONTINUE : 

{ 

continue_func(  ); 
return  TRUE; 

> 

case  DLG_BUTT0N1 :  cose  DLG_BUTT0N2 : 

( 

two_windows_one_button(wParam) ; 
return  TRUE; 

} 

case  OLG_BUTTON: 

!  < 

!  three_windows_no_buttons( wParam) ; 

return  TRUE; 

} 

default: 

figflag  -  0; 
return  FALSE; 

> 

) 

return  FALSE; 

) 


long  pascal  HandleMainWindow  (hWnd,  wMsg,  wParam,  IParam) 

HWND  hWnd;  . 

WORD  wMsg,  wParam; 

LONG  IParam; 


switch  (wMsg) 

{ 

case  WM_SYSCOMMAND : 
switch  (wParam  &  0xfff0) 

( 

case  SC_KEYMENU: 
if  (IParam  -»  9) 

( 

return(DefWindowProc  (hWnd,  wMsg,  SC_NEXTWINDOW,  IParam)) 

) 

else 

( 

return(DefWindowProc  (hWnd,  wMsg,  wParam,  IParam)); 

) 

break ; 

default: return(DefWindowProc  (hWnd,  wMsg,  wParom,  IParam)); 

) 

case  WM_COMMAND: 
switch(wParam) 

( 

case  MC  EXIT: 

I 

I 


I 

1 
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destroy_current_childs( ) ; 

DestroyWindow( hWnd ) ; 

return (DefWindowProc  (hWnd,  wMsg,  wParam,  IParam)): 
case  MC_CLOCK: 

spawnlp(P_WAIT,  "Clock . exe” , (char  *)NULL); 
return(DefWindowProc  (hWnd,  wMsg,  wParam,  IParam)): 
case  MC_NOTEPAD: 

spawnlp( P_WAIT,  "Notepad.exe", (char  *)NULL); 
return(DefWindowProc  (hWnd,  wMsg,  wParam,  IParam)); 
case  MC_CALCULATOR: 

spawnlp(P_WAIT,  "Calc.exe", (char  *)NULL); 
return(DefWindowProc  (hWnd,  wMsg,  wParam,  IParam)); 
case  MC_NEW_SESSION: 
destroy_current_childs( ) ; 
init_session( ) ; 

return(DefWindowProc  (hWnd,  wMsg,  wParam,  IParam)); 
case  MC_PREVIOUS_SESSION: 
destroy_current_childs( )-, 

Ifigflag  «  0; 

list_previous( ) ; 

return(DefWindowProc  (hWnd,  wMsg,  wParam,  IParam)); 

I  case  MC_MAP: 

lvm(); 

return(DefWindowProc  (hWnd,  wMsg,  wParam,  IParam)); 

I  default ; 

return(DefWindowProc  (hWnd,  wMsg,  wParam,  IParam)); 
break; 

l>  ’ 

pascal  WinMain  (hlnstance,  hPrevInstance ,  lpCmdLine,  nCmdShow) 

HANDLE  hlnstance,  hPrevInstance; 

LPSTR  lpCmdLine; 

Int  nCmdShow; 

( 

WNDCLASS  wndclass; 

MSG  msg ; 

HMENU  hmenu ; 

HOC  hdc ; 

LPSTR  ptr; 

screen_height  «  GetSystemMetrics( SM_CYSCREEN) ; 
destroyed_f lag  ■  FALSE; 
no_of_open_files  •  0; 
current_active_window  »  0; 

current_f_coa  »  get_current_coa( fcoa ,  f_curvec); 
current_e_coa  «  get__current_coa(ecoa ,  e_curvec); 
f  current_hlghlight  «  NULL; 

■1  next_session [0]  *  NULL; 

current_session[0]  «  NULL; 
j|  if  (hPrevInstance) 


return( FALSE  ) ; 
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} 

strcpy(  id__name,  "session"); 
intacval_lnstance  «  hlnstance; 
wndclass . style  «  0; 

wndclass . IpfnWndProc  »  HandleMoinWindow; 

wndclass. cbClsExtra  -  0; 

wndclass. cbWndExtra  -  0; 

wndclass . hlnstance  »  intacval_instance; 

wndclass. hCursor  «  LoadCursor(NULL ,  IDC_ARROW); 

wndclass. hlcon  -  LoadIcon( NULL ,  IDI_APPLICATION) ; 

wndclass. hbrBackground  »  (H8RUSH)(C0L0R_WIND0W  +1); 

wndclass. IpszMenuName  »  ( LPSTR)”Main" ; 

wndclass . lpszClassName  ■  ( LPSTR)"MA1N" ; 

RegisterClass( ( LPWNDCLASS )&wndclass ) ; 
wndclass . style  »  0; 

wndclass . IpfnWndProc  »  HandleFileWindow; 

wndclass. cbClsExtra  -  0; 

wndclass . cbWndExtra  -  12; 

wndclass . hlnstance  «  intacval_instance; 

wndclass . hCursor  «  LoodCursor(NULL,  IDC_ARR0W); 

wndclass. hlcon  -  LoadIcon( NULL ,  IDI_APPLICATION) ; 

wndclass. hbrBackground  «  ( HBRUSH)( COLOR_WINDOW  +  1); 

wndclass . IpszMenuName  »  (LPSTR)NULL; 

wndclass. lpszClassName  ■  ( LPSTR )"FILES" ; 

RegisterClass( ( LPWNDCLASS )&wndclass ) ; 
wndclass . style  «  0; 

wndclass . IpfnWndProc  «  HandleBoxesWindow; 

wndclass. cbClsExtra  «  0; 

wndclass. cbWndExtra  »  12; 

wndclass. hlnstance  «  lntacval_lnstance; 

wndclass . hCursor  -  LoodCursor(NULL,  IDC_ARROW); 

wndclass. hlcon  «  LoadIcon( NULL ,  IDI_APPLICATION) ; 

wndclass . hbrBackground  «  (HBRUSH)(COLOR_WINDOW  +  1); 

wndclass . IpszMenuName  »  ( LPSTR )NULL; 

wndclass . lpszClassName  »  ( LPSTR)"BOXES" ; 

RegisterClass( ( LPWNDCLASS )&wndclass ) ; 

main_window  -  CreateWindow( ( LPSTR ) "MAIN" ,  (LPSTR)"INTACVAL" , 

WS_TILED ! WS_CLIPCHILDREN, 

0,  0,  0,  0,  NULL,  NULL,  intacval_instance , 

( LPSTR )NULL); 

hdc  »  GetDC(main_windo•  0  ; 

SelectOb ject( hdc ,  GetStockOb ject( OEM_FIXED_FONT ) ) ; 

GetTextMetrics( hdc ,  ( LPTEXTMETRIC )&font_sizing ) ; 

ReleaseDC(main_window,  hdc); 

ShowWindow(main_window,  nCmdShow) ; 

current_dialog_func  «  MakeProcInstance( (FARPROC)main  dialog,  intacval_instance 

): 

current_figure  »  CreateDialog( intacval_instance ,  (LPSTR)"Figure2" , 
main_window, current_dialog_func ) ; 
lvminit( "vcorps . db" ) ; 
do  { 

GetMessage((LPMSG)4msg,  NULL,  0,  0); 

if  (! IsDialogMessage( current  figure,  ( LPMSG )4msg ) ) 

( 

if  ( !TranslateMessage((LPMSG)&msg)) 

{ 


I 
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> 


DispatchMessage( (LPMSG)&msg ) ; 


}  while  ((msg. message  !.  WM.QUIT)  &&  IsWindowCmainjrfindow)) 

FreeProcInstance(current_dialog_func ) , 


save_cur_session( ) ; 

return(msg . wParam) : 


> 


I 

I 

I 


] 

I 

I 

I 


\ 
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srv.x.ax  «  0x1a00; 
srv.x.dx  -  FP_OFF( lpstr ) ; 
segv.ds  -  FP_SEG( lpstr) ; 
intdosx(&srv ,  &rrv,  &segv); 
srv.x.ax  «  0x4e00; 

if  (strcmp( wildcard,  last  wild)  -«  0) 

{ 

srv.x.ax  -  0x4f00; 

} 

else 

{ 

strcpy ( last_wild , wildcard) ; 

) 

lpstr  »  (char  far  *)wildcard; 
srv.x.cx  «  0; 
srv.x.dx  ■  FP_OFF( lpstr ) ; 
segv.ds  -  FP_SEG( lpstr) ; 
intdosx(&srv,  &rrv,  &segv); 
if  (rrv.x.cflag) 

{ 

return( ( DIR_ENTRY  *)0); 

> 

else 

< 

return( &dir_entry ) ; 

) 


Jget_dir(  filenames,  p j ) 
char  filenames[] [60] ; 
int  «pj ; 

{ 

int  i,  flag; 

char  ext[3],  f ilename[60]  ; 

DIR_ENTRY  *dir_entry; 

flag  -  FALSE; 

*pj  -  0; 

for(i  «  0;  1  <  10;  i++) 

{ 

initvec(filenames[i] ,  60); 

> 

for  (i  «  0;  i  <  100;  i++) 

{ 

inttostr( i , ext) ; 
ext[2]  -  NULL; 
strcpy(filename,  ld_name); 
strcat(  filename ,"."); 
strcat( filename, ext) ; 

/•MessageBox(GetFoeus( ), (LPSTR )s, (LPSTR ) "DEBUG", MB_OK); */ 
if  (dir  entry  «  decipher( filename) ) 

( 

ff lag  •  FALSE; 

sprintf ( f ilenomes[*pj ]  ,  "l6-12s  i>2d/%02dl%02d  %2d:lt02d-.%02d"  , 

dir_entry->name,  dir_entry- >date . day ,  dir  entry->dote. month, 

J 


! 


V 
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dir_entry->date . year+80 ,  dir_entry- >time . hour , 
dir_entry->time .minute ,  dir_entry->time . second*2 ) 
*pj  +  -  1 : 

>  if  ((*pj)  >*10)  return; 

} 

else 

{ 

if  (flag  --  FALSE) 
strcpy(next_session ,  filename); 
flag  *  TRUE; 

) 

i,’ 

inttostr(n, vec) 
int  n ; 
char  *vec; 


( 

vec[0]  -  n/10  +  '0' ; 
vec[1 ]  *  n£l 0  +  ' 0  '  ; 

1) 


initvec(vec,  n) 
char  *vec; 
int  n; 


( 

int  i; 

for( i  -0;  i  <  (n  -  1);  i++) 

( 

vec[l]  »  '  ' ; 

) 

vec [n-1 ]  *  NULL; 

) 


long  pascal  HandleFileWindow  (hWnd,  wMsg,  wParam,  IParom) 
HWND  hWnd ; 

,  WORD  wMsg,  wParam; 

I  LONG  IParom; 


V 


1' 

I 

I 

I 

I 


LONG  retval; 

RECT  window_rect; 
int  new_horz_max ,  new_vert_max ; 
int  fp,  num_lines,  num_cols; 
int  new_i ; 

switch  (wMsg) 

( 


v 


case  WM  SYSCOMMAND: 


PAGE  4  February  16,  1987  09:09  AM 


INTACVL1 .C 


switch  (wParam  &  0xfff0) 

{ 

case  SC_KEYMENU: 
if  (IParam  »»  9) 

{ 

return(DefWindowProc  (hWnd,  wMsg,  SC_NEXTWINDOW,  IParam)); 

) 

else 

< 

return(DefWindowProc  (hWnd,  wMsg,  wParam,  IParam)); 

> 

break ; 

case  SC_MOVE : 
if  (figflag  <  130) 

( 

switch_active_window( hWnd ) ; 
return  TRUE; 

) 

else 

{ 

return(DefWindowProc(hWnd,  wMsg,  wParam,  IParam)); 

) 

case  SC_CLOSE: 

delete_one_child( hWnd , &new_i ) ; 
destroyed_flag  •  TRUE; 
if  (figflag  >»  130) 
change_window_pos(hWnd, new_i) ; 
return(DefWindowProc  (hWnd,  wMsg,  wParam,  IParam)); 
default : return(DefWindowProc  (hWnd,  wMsg,  wParam,  IParam)); 

) 

case  WM_PAINT: 

repaint( hWnd ,  ( LPPAINTSTRUCT) IParam) ; 
return( 1 L) ; 
break ; 

case  WM_HSCROLL: 

side_scroll(hWnd,  wParam,  LOWORD( IParam) ) ; 
return( 1 L ) ; 
break ; 

ccse  WM_VSCROLL: 

vert_scroll( hWnd ,  wParam,  LOWORD( IParam) ) ; 
return( 1 L ) ; 
break ; 

case  WM_SI2E: 

retval  ■  DefWindowProc( hWnd ,  wMsg,  wParam,  IParam); 
switch  (wParam) 

( 

case  SIZEFULLSCREEN: 
case  SIZENORMAL: 

new_vert_max  »  GetWindowWord(hWnd,  2); 
new_horz_max  »  GetWindowWord(hWnd,  4); 
new_vert_max  ■  GetWindowWord(hWnd,  2); 

new_horz_max  -«  10W0RD( lParom)/font_sizing . tmMaxCharWidth 

new_vert_max  -»  HIWORD( lParam)/font_sizing . tmHeight ; 

if  ( new_horz_max  <  0)  new_horz_max  ■  0; 

if  ( new_vert_max  <  0)  new_vert_max  ■  0 

if  ( (GetScrollPos( hWnd ,  SB_HORZ)  >  new_horz_max ) 
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! I (GetScrollPos(hWnd,  SB  VERT) 

{ 


new_vert  max ) ) 


1 

I 

i 

I 

I 

I 

I 

I 


SetScrollPos(hWnd,  S8_H0R2,  new_horz_max ,  FALSE); 
SetScrollPos( hWnd ,  SB_VERT ,  new~vert~max ,  FALSE); 
GetClientRect( hWnd ,  ( LPRECT )&window_rect ) ; 
InvalidateRect( hWnd ,  ( LPRECT )&window  rect,  FALSE); 

> 

SetScrollRange( hWnd ,  SB_H0R2,  0,  new_horz_max ,  TRUE); 
SetScrollRange(hWnd,  SB_VERT ,  0,  new~vert~max ,  TRUE); 
break; 
default: 

break ; 

) 

return( retval ) ; 
break ; 

case  WM_DESTROV: 

fp  •  GetWindowWord(hWnd ,  0); 
close(fp) ; 

if  ( destroyed_flag  «•  FALSE) 

delete_one_child( hWnd, &new_i ) : 
destroyed_flag  «  FALSE; 

return( DefWindowProc  (hWnd,  wMsg,  wParam,  IParam)); 
case  WM_CREATE: 

SetWindowWord( hWnd ,  0,  new_fp); 

scanf ile( new_f p ,  4num_lines,  &num_cols); 

SetWindowWord(hWnd,  2,  num_lines); 

SetWindowWord(hWnd,  4,  num_cols); 

SetWindowWord(hWnd,  6,  0); 

SetWindowLong(hWnd,  8,  01); 

BringWindowToTop(hWnd) ; 

return(DefWindowProc  (hWnd,  wMsg,  wParam,  IParam)); 
case  WM_LBUTTONDOWN : 

if  (figflag  <  130) 

switch_active_window( hWnd ) ; 
return  TRUE; 
default : 


return( DefWindowProc  (hWnd,  wMsg,  wParam,  IParam)); 
break ; 

> 

) 


transbuf fer( buf fer ,  longbuffer) 
char  “buffer,  “longbuffer; 


int  1,  j; 

i  ■  0 ; 
j  *  0 ; 

whlle((buffer[i]  !-  ’\r’)  &&  (buffer[i]  >.  0x1a)  &&  (buffer[i]  !•  NULL)) 


if  (buffer[i] 

{ 


’\t’  ) 
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i++ ; 

} 

else 

{ 

longbuf fer [ j++]  *  buffer[i++] ; 

) 

> 

> 

two_windows_one_button( button ) 
int  button; 

{ 

char  str[30]; 

switch( figflag) 

{ 

case  130: 

( 

switch  (button) 

{ 

case  DLG_8UTT0N1 : 

( 

strcpy(str,  "DISPLAY  KB’S"); 
strcpy( s , "Click  on  ’DISPLAY  KB’S’  to  review  KB’s  "); 
strcat(s,"  or  to  change  values."); 
get_f_coo( 1 ) ; 
figflag  «  135; 
break; 

} 

case  DLG_BUTT0N2: 

( 

|strcpy(str,  "SEE  BLUE  COA"); 

strcpy(s, "Click  on  'SEE  BLUE  COA’  to  view  corresponding” ) 

strcat(s,  "  Blue  COA."); 

display_oav(  1 ) -, 

figflag  »  136; 

break ; 

) 

default : 
break ; 

) 

break ; 

) 

case  131 : 

( 

switch  (button) 

.1  < 

case  DLG  BUTT0N1 : 

,  < 

I  strcpy(str,  "SEE  BLUE  COA"); 

I  strcpy( s , "Click  on  'SEE  BLUE  COA'  to  view  corresponding"  ) 

strcat(s,  “  Blue  COA."); 

1file_handle[l]  «  f ile_handle[0] ; 
get_e_coa( 0 ) ; 
figflag  ■  136; 

I 

I 


V 
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break ; 

) 

case  DI_G_BUTT0N2: 

{ 

strcpy ( str ,  "SEE  RED  COA"); 

strcpy( s , "Click  on  'SEE  RED  COA'  to  view  corresponding" ) ; 

strcat( s ,  "  Red  COA."); 

file_handle[l]  -  f ile_handle[0] ; 

get_f_coa(0) ; 

figflag  -  137; 

break; 

> 

default : 
break ; 

) 

break ; 

) 

case  132: 

{ 

switch  (button) 

( 

case  DLG_BUTT0N1 : 

( 

strcpy( str ,  "DISPLAY  KB'S"); 

strcpy(s, "Click  on  'DISPLAY  KB’S’  to  review  KB’s  ”); 

strcat(s,"  or  to  change  values."); 

f ile_handle[l ]  «  f ile_handle[0] ; 

get_e_c°a( 0 ) ; 

figflag  «  135; 

break; 

> 

case  DLG  8UTT0N2 : 

( 

strcpy( str ,  "SEE  RED  COA"); 

strcpy( s , "Click  on  'SEE  RED  COA’  to  view  corresponding"  ) ; 

strcat(s,  "  Red  COA."); 

dlsplay_oav( 1 ) ; 

figflag  «  137; 

break; 

) 

default : 
break ; 

) 

break ; 

) 

case  138: 

{ 

switch( button ) 

( 

case  0: 

( 

sprintf ( str , "*s*d" , FRIENDLY_FILE_NAME , current_f_coa ) ; 

change_f ile( f ile_handle[0] ,  str ) ; 

show_mask  &■  “0x2000; 

redo_screen(  ) ; 

strcpy (str,  "SEE  RED  COA"); 


v 
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strcpy(s, "Click  on  'SEE  RED  COA’  to  view  corresponding” ) ; 
strcat(s,  ”  Red  COA."); 
figflag  »  137; 
break ; 

) 

case  1 ; 

{ 

sprintf { str , "*s*d” , ENEMY_FILE_NAME . current_e_coo ) ; 
change_file(file_handle[0] ,  str ) ; 
show_mask  &«  “ 0x0020 ; 
redo_screen( ) ; 

Strcpy( str ,  "SEE  BLUE  COA"); 

strcpy(s, "Click  on  ’SEE  BLUE  COA’  to  view  corresponding" ) 
strcat(s,  "  Blue  COA."); 
figflag  «  136; 
break; 

) 

case  2: 

{ 

sprintf(str, "#s£d" , ENEMY_FILE_NAME , current_e_coa ) ; 
chonge_file( f ile_handle[0] ,  str ) ; 

sprintf ( str , "*s*d" , FRIENDLY_FILE_NAME , current_f_coa ) ; 
change  f ile( f ile_handle[l ] ,  str); 

StrcpyTstr,  "DISPLAY  KB’S"); 

strcpy(s, "Click  on  'DISPLAY  KB’S'  to  review  KB’s  "); 
strcat(s,"  or  to  change  values."); 
figflag  «  135; 
break; 

> 

default; 
break; 

) 

break ; 

} 

case  140: 

{ 

switch  (button) 

{ 

case  DLG  BUTT0N1 : 

{ 

strcpy( str,  "DISPLAY  KB’S"); 

strcpy(s, "Click  on  'DISPLAY  KB’S’  to  review  KB’s  "); 

strcat(s,"  or  to  change  values."); 

get_e_coa( 1 ) ; 

figflag  *  145; 

break ; 

) 

cose  DLG  BUTT0N2: 

{ 

strcpy( str ,  "SEE  RED  COA"); 

strcpy(s, "Click  on  'SEE  RED  COA'  to  view  corresponding" ) 

strcat(s,  "  Red  COA."); 

disploy_oav( 1 ) ; 

figflag  «  146; 

break ; 

) 
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default : 
break ; 

) 

break ; 

) 

case  141: 

{ 

switch  (button) 

{ 

case  DLG_BUTT0N1 • 

{ 

strcpy ( str ,  "SEE  RED  COA"); 

strcpy( s , "Click  on  'SEE  RED  COA’  to  view  corresponding" ) • 
strcat( s ,  "  Red  COA."); 
file_handle[l]  =  f ile_handle [0] : 

9et_f_coa(0); 
figflag  «  146; 
break ; 

> 

case  DLG_BUTT0N2 : 

{ 

Strcpy( str ,  "SEE  BLUE  COA"); 

strcpy ( s , "Click  on  'SEE  8LUE  COA'  to  view  corresponding" ) • 
strcat(s,  "  Blue  COA."); 
file_handle[l ]  .  f ile_handle[0] ; 

9et_e_coa(0 ) ; 
figflag  «  147; 
break ; 

) 

default: 

break; 

) 

break ; 

} 

case  142: 

{ 

switch  (button) 

( 

case  DLG_BUTT0N1 : 

{ 

Strcpy( str ,  "DISPLAY  KB’S"); 

strcpy(s, "Click  on  'DISPLAY  KB'S'  to  review  KB's  "); 

strcat(s,"  or  to  change  values."); 

file_handle[l]  .  f ile_handle[0] ; 

get_f_coa(0); 

figflag  «  145; 

break ; 

) 

case  DLG_BUTT0N2 : 

{ 

strcpy( str ,  "SEE  BLUE  COA"); 

strcpy( s , "Click  on  ’SEE  BLUE  COA’  to  view  corresponding" )  • 
strcat( s ,  "  Blue  COA.");  ' 

display_oav( 1 ) ; 
figflag  «  147; 
break ; 


I 


I 


\ 
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I 

I 

« 


I 

I 

I 

I 


> 

default : 
break ; 

) 

break ; 

} 

case  148: 

{ 

switch( button ) 

{ 

case  0: 

( 

sprintf ( str , "*s*d" , EN£MY_FILE_NAME , current_e_coa ) ; 
change_f ile( f ile_handle[0] ,  str ) ; 
show_mask  “0x0020; 
redo_screen( ) ; 

strcpy( str,  "SEE  BLUE  COA"); 

strcpy( s , "Click  on  ’SEE  BLUE  COA’  to  view  corresponding" ) 
strcat(s,  "  Blue  COA."); 
figflag  *  147; 
break ; 

> 

case  1  : 

{ 

sprintf ( str , "*s*d" , FRIENDLY_FILE_NAME , Current_f_coa ) ; 

change_file( file_handle[0] ,  str) ; 

show_mask  &»  “0x2000; 

redo_screen( ) ;  . 

strcpy( Str,  "SEE  RED  COA"); 

st.rcpy(  s ,  "Click  on  'SEE  RED  COA'  to  view  corresponding"  ) ; 
strcat(s  "  Red  COA.”); 
figflag  «  146; 
break ; 

) 

case  2: 

{ 

sprintf ( str , "*s*d" , FRIENDLY_FILE_NAME , current_f_coa ) ; 

change_file( file_handle[0] ,  str ) ; 

sprintf ( str, "£s£d" , ENEMY_FILE_NAME , current_e_coa ) ; 

change_file(file_handle[l ] ,  str ) ; 

strcpy ( str ,  "DISPLAY  KB’S"); 

strcpy(s, "Click  on  'DISPLAY  KB’S’  to  review  KB’s  "); 
strcat(s,"  or  to  change  values."); 
figflag  *  145; 
break ; 

) 

default : 
break ; 

) 

break ; 

) 

) 

DestroyWindow(current_figure) ; 

FreeProcInstance( current_dlalog_f unc ) ; 
current_dialog_f unc  » 

MakeProcInstance( ( FARPROC )main_dialog ,  i n tac v a l_in stance ) ; 


\ 
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current_f igure  «  CreateDialog( lntacval_instance , 

( LPSTR )"Figure14" ,  main_window, current_dlalog_f unc ) ; 

SetDlgItemText( current_f igure ,  DLG_BUTTON ,  ( LPSTR )str); 
SetDlgItemText(current_f igure ,  DLG^CLICK,  ( LPSTR )s); 

MoveWindow( f ile_handle"[0] ,94,-1, 542 , 65*screen_height/200 , TRUE ) ; 

MoveWindow( f ile_handle[ 1 ] , 94, 65»screen_helght/200-2 , 542 , 65*screen_height/200 , T 
RUE); 

SendDlgItemMessage(current_figure,  current  highlight,  BM_SETSTATE, 

TRUE, (LONG )NULL); 

) 

find_which_window(hwnd, pi ) 

HWND  hwnd ; 
int  "pi; 

( 

int  i ; 

for(i  »  0;  i  <  no_of_open_f iles ;  1++) 

{ 

if  (file_handle[i]  ««  hwnd) 

{ 

"pi  »  i; 
break ; 

) 

) 

) 

I  one_window_two_buttons( button ) 

*  int  button; 

I  { 

>  char  str1[30],  str2[30]; 

switch (button) 

( 

case  DLG_E_COA ; 

( 

strcpy(str1,  "SEE  BLUE  COA"); 
strcpy(str2,  "DISPLAY  KB’S"); 

strcpy(s, "Click  on  ’SEE  BLUE  COA’  to  view  corresponding" ) ; 
strcat(s,  "  Blue  COA.  Click  on  ’DISPLAY  "); 

strcat(s,  "KB’S'  to  review  KB's  or  to  change  values."); 
get_e_c°a( 0 ) ; 
figflag  »  130; 
break ; 

) 

case  DUG  F_COA: 

( 

|  strcpy ( strl ,  "SEE  RED  COA"); 

'  strcpy(str2,  "DISPLAY  KB’S"); 

strcpy( s , "Click  on  'SEE  RED  COA'  to  view  corresponding"  ) ; 

|strcat(s,  "  Red  COA.  Click  on  'DISPLAY  "); 

strcat(s,  "KB'S’  to  review  KB’s  or  to  change  values."); 
get_f_coa( 0 ) ; 
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I 

I 

I 

I 

I 

I 

I 

I 

I 


I 


figflag  -  140; 
break; 

) 

case  0; 

{ 

switch( figflag ) 

{ 

case  135; 

{ 

show_mask  &•  “0x2000; 
redo_screen( ) ; 

strcpy(str1,  "SEE  RED  COA"); 
strcpy{str2,  "DISPLAY  KB'S"); 

strcpy(s, "Click  on  'SEE  RED  COA’  to  view  corresponding” ) ; 
strcat(s,  "  Red  COA.  Click  on  ’DISPLAY  ”); 

strcat(s,  "KB'S’  to  review  KB's  or  to  change  values."); 
figflag  -  132; 
break ; 

) 

case  136:  case  137: 

{ 

show_mask  &»  “0x2020; 
redo_screen( ) ; 

strcpy(str1,  "SEE  RED  COA"); 
strcpy(str2,  "SEE  BLUE  COA"); 

strcpy( s , "Click  on  'SEE  RED  COA’  to  view  corresponding" ) ; 
strcat(s,  "  Red  COA.  Click  on  'SEE  "); 

strcat(s,  "BLUE  COA'  to  view  corresponding  Blue  COA"); 
figflag  -  131; 
break; 

) 


case  145: 

{ 

show_mask  4-  “0x0020; 
redo_screen( ) ; 

strcpy( strl ,  "SEE  BLUE  COA"); 
strcpy(str2,  "DISPLAY  KB'S"); 

strcpy( s , "Click  on  'SEE  BLUE  COA'  to  view  corresponding"); 
street ( s ,  "  Blue  COA.  Click  on  'DISPLAY  ’’ ) ; 

strcat(s,  "KB’S'  to  review  KB's  or  to  change  values."); 
figflag  «  142; 
break ; 

) 

case  146:  case  147: 

{ 

show_mask  4-  “0x2020; 
redo_screen( ) ; 

strcpy( strl ,  "SEE  BLUE  COA"); 
strcpy(str2,  "SEE  RED  COA"); 

strcpy( s , "Click  on  'SEE  BLUE  COA'  to  view  corresponding" ) ; 
strcat(s,  "  Blue  COA.  Click  on  'SEE  "); 

strcat(s,  "RED  COA’  to  view  corresponding  Red  COA"); 
figflag  «  141; 
break ; 

) 

) 
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break ; 

) 

case  1 : 

{ 

switch( figflag ) 

{ 

case  135:  case  136: 

{ 

show_mask  4»  ”0x0020; 
redo_screen( ) ; 

strcpy( str 1 ,  "SEE  BLUE  COA”); 
Strcpy(str2,  "DISPLAY  KB’S"); 
strcpy(s, "Click  on  'SEE  BLUE  COA 
strcat(s,  "  Blue  COA. 
strcat(s,  "KB’S1  to  review  KB's 
figflag  «  130; 
break; 


to  view  corresponding" ) ; 

Click  on  'DISPLAY  "); 
or  to  change  values."); 


case  137: 

{ 

show_mask  &■  ”0x2000; 
redo_screen( ) ; 

strcpy(str1,  "SEE  RED  COA"); 
Strcpy(str2,  "DISPLAY  KB’S"); 
strcpy(s, "Click  on  'SEE  RED  COA' 
strcat(s,  "  Red  COA. 
strcat(s,  "KB’S'  to  review  KB’s 
figflag  -  132; 
break ; 


to  view  corresponding" ) ; 

Click  on  'DISPLAY  "  )  ; 
or  to  change  values."); 


case  145-.  case  146: 

{ 

show_mask  *«  ”0x2000; 
redo_screen( ) ; 

strcpy( str 1 ,  "SEE  RED  COA"); 
strcpy( str2 ,  "DISPLAY  KB'S"); 
strcpy( s , "Click  on  'SEE  RED  COA’ 
strcat(s,  "  Red  COA. 
strcat(s,  "KB’S'  to  review  KB's 
figflag  «  140; 
break ; 


to  view  corresponding" ) ; 

Click  on  'DISPLAY  ") 
or  to  change  values."); 


case  147: 


show_mask  &»  “0x0020; 
redo_screen( ) ; 

strcpy(str1,  "SEE  BLUE  COA"); 
strcpy(str2,  "DISPLAY  KB’S"); 
strcpy(s, "Click  on  'SEE  BLUE  COA 
strcat(s,  "  Blue  COA. 
strcat(s,  "KB'S'  to  review  KB’s 
figflag  »  142; 
break ; 


to  view  corresponding" ) ; 

Click  on  'DISPLAY  ’’); 
or  to  change  values.”); 


break ; 
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I 

DestroyWindow(current_f lgure ) ; 

1FreeProcInstance(current_dialog_func) ; 
current_dialog_func  « 

MakeProcInstance( ( FARPROC )main_didlog ,  intacvdl_instance ) ; 
current_figure  -  CreateDialog( intacval_instance , 

1( LPSTR)"Figure13" ,  main_window, current_dialog_f unc ) ; 
SetDlgItemText(current_figure,  DLG_BUTTON1,  (LPSTR)strl ) ; 
SetDlgItemText(current_figure,  DLG_BUTTON2,  (LPSTR)str2) ; 

»SetDlgItemText(current_f igure,  DLG_CLICK,  (LPSTR)s); 

MoveWindow( f ile_hdndle[0] ,94,-1 , 542 , 1 30*screen_height/200 , Tr,uE ) ; 
SendDlgItemMessage( current_f igure,  current_highlight ,  BM_SETSTATE , 
TRUE, (LONG )NULU) ; 

I 

three_windows_no_buttons( ) 

I 

•  char  str[15]; 


1 

I 

I 

r 

! 


i 

i 

I 

I 

I 


switch( f igf lag ) 

( 

case  135: 

{ 

sprintf  (  st r , "9fs^d" , SENEMY_FIL£_NAME , current_e_coo ) ; 
change_file(flle_handle[0] , str) ; 

sprintf ( str ,  "*s*d" , SFR1ENDLY_FILE_NAME , current_f_coa ) ; 

change_flle(file_handle[1 ] , str ) ; 

dlsplay_oav( 2 ) ; 

f igf lag  »  138; 

break; 

) 

case  136: 

( 

sprintf ( str , "*s*d" , SENEMY_FIIE_NAME , current_e_coa ) ; 

change_f ile( f ile_handle[0] ,  str ) ; 

f ile_handle[2]  «  f ile_handle[l ] ; 

get_sf_coa( 1 ) ; 

figflag  *  138; 

break ; 

) 

case  137: 

( 

f ile_handle[2]  *  file_handle[1] ; 
f ile_handle[l ]  *  f ile_handle[0] ; 

sprintf ( str , "5<s#d" , SFRIENDLY_FILE_NAME , current_f_coa ) ; 

change_f lle( file_handle[1 ] ,  str); 

get_se_coa(0); 

figflag  «  138; 

break ; 

} 

case  145: 

{ 

sprintf ( str , "*s*d" , SENEMY_FILE_NAME , current_e_coa ) ; 
change_file( file_handle[1 ] ,  str) ; 


v 
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sprintf ( str , "*s*d" , SFRIENOLY_FILE_NAME , current_f_coa ) ; 

change_f ile( f ile_handle[0] ,  str )  ; 

display_oav(2) ; 

figflag  ■  148; 

break ; 

> 

case  146; 

{ 

f ile_handle[2]  ■  f ile_handle[l ] ; 

sprintf ( str , "#s*d" , SFRIENDLY_FIL£_NAME , current_f_coa ) ; 

change_file(file_handle[0] ,  str); 

get_se_coa( 1 ) ; 

figflag  «  148; 

break ; 

> 

case  147: 

{ 

file_handle[2]  «  f ile_handle[l ] ; 
file_hondle[l]  »  f ile_handle[0] ; 

sprintf ( str , , SENEMY_FILE_NAME , current_e_coa ) ; 

change_file( f ile_handle[l ] ,  str ) ; 

get_sf_coa(0) ; 

figflag  »  148; 

break ; 

} 

> 

DestroyWindow( current_f igure ) ; 

Fr eeP roc Instance ( cu r ren t_d ialog_f unc ) ; 

Icurrent_dialog_func  » 

MakeProcInstance( ( FARPROC)main_dialog ,  intacval_instance ) ; 
current_f igure  »  CreateDialog( intacval_instance, 

( LPSTR )" Figures" ,  main_window, current_dialog_f unc ) ; 

|  strcpy(s,  "Objects  and  attributes  remain  fixed.  Click  on  "); 
j  strcat(s,  "desired  value  box  to  select  new  value.  Use  horizontal  "); 
strcat(s,  "scroll  bar  to  view  more  KB’s."); 

SetDlgItemText(current_figure,  DLG_CLICK,  (LPSTR)s); 

MoveWindow( f ile_handle[0] , 94, -1 , 272 , 67*screen_height/200 , TRUE) ; 

-  MoveWindow( file_handle[1 ] ,364,-1,272, 67*screen_height/200 , TRUE ) ; 

MoveWindow( f ile_handle[2] , 94 , 67»screen  height/200-2 , 542 , 82*screen  height/200 , TR 
,'UE); 

SendDlgItemMessage( current_f igure ,  current_highlight,  BM_SETSTATE, 

TRUE, (LONG )NULL); 

I’ 

i 

1 

I 

I 

I 


\ 
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f 


include 

include 


"intacval . h" 
"lvm. h" 


get_mission_f iles( ) 

i  { 


I  char  file_caption[3] [20] : 
HANDLE  ltext_handle; 
int  fp; 


I 

I 

I 

I 

I 

I 


destroy_current_childs( ) ; 
checkfigure( ) ; 

if  ( current_highlight  !*  NULL) 

SendDlgItemMessage(current_f igure ,  current_hlghlight ,  BM_SETSTATE, 

FALSE, (LONG )NULL); 
current_highlight  -  DLG_MISSION; 

SendDlgItemMessage(current_figure,  current_hlghlight,  BM_SETSTATE , 

TRUE, (LONG )NULL); 
no_of_open_files  »  3; 
current_active_window  ■  1 ; 

strcpy(s,  "To  review  text,  click  on  the  tittle  of  the  window  containing  " ) ; 
strcat(s,  "the  text  you  want  to  see.  Click  on  the  arrows  to  scroll  text."); 
SetDlgItemText( current_f igure ,  DLG_CLICK,  (LPSTR)s); 
new_fp  «  open (OBJ  FILE_NAME,  0_8INARY); 

f ile_handle[2]  «  CreateWindow( ( LPSTR )" FILES" ,  ( LPSTR)"OBJECTIVES" , 

WS_CHILD ! WS_SYSMENU ! WS_CLIPSIBL1NGS ! WS_CAPTION ! WS_VISIBLE , 

140,  5»screen_height/200,  480,  120*screen_height/200 ,  main_window,  NULL, 
intacval_instance , ( LPSTR )NULL ) ; 
new_fp  «  open(INT_FILE_NAME,  0_BINARY ) ; 

file  handle[1 j  «  CreateWindow( ( LPSTR ) "FILES” ,  (LPSTR )"INTENT" , 

” WS_CHILD : WS_SYSMENU ! WS_CLIPSIBLINGS ! WS_CAPTION ! WS_VISIBLE , 

130,  13*screen_height/200,  480,  1 20»screen_height/200 ,  main_window,  NULL, 
intacval_instance, ( LPSTR )NULL ) ; 
new_fp  .  open(ASS_FILE_NAME,  0_BINARY ) ; 

f ile_handle[0]  -  CreateWindow( ( LPSTR )" FILES" ,  ( LPSTR)"ASSUMPTIONS" , 

WS_CHILD ! WS_SYSMENU ! WS_CLIPSIBLINGS ! WS_CAPTION ! WS_VISIBLE , 

120,  21 *screen_height/200 ,  480,  1 20*screen_height/200 ,  main_window,  NULL, 
intacval_instance , ( LPSTR )NULL ) ; 


get_terrain_f iles( ) 

( 

char  f ile_caption[3] [20] ; 

■■  HANDLE  ltext_handle; 

I  int  fp; 

destroy_current_childs( ); 

1checkfigure(  ) ; 

if  (current_highlight  !«  NULL) 

SendDlgItemMessage(current_f igure ,  current_highlight ,  BM_SETSTATE , 

I  FALSE , ( LONG )NULL  ) ; 

Show_mask  «  (1  <<  TERRAIN); 
redo  screen(); 
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i 

i 

i 

c 

I 

I 


PAGE  2  February  16,  1987  09:11  AM 


BM  SETSTATE, 


current_highlight  «  DLG_TERRAIN; 

SendDlgItemMessage(current_f igure ,  current_highlight 
TRUE, (LONG )NULL) ; 
no_of_open_f iles  *  2; 
current_active_window  «  1 ; 

strcpy(s,  "To  review  text,  click  on  the  tittle  of  the  window  containing  "); 
strcat(s,  "the  text  you  want  to  see.  Click  on  the  arrows  to  scroll  text."); 
SetDlgItemText(current_figure,  DLG_CLICK,  (LPSTR)s); 
new  fp  «  open  (GEN  FILENAME,  0_BINARY ) ; 

file_handle[l]  -  CreateWindow( (LPSTR)"FILES" ,  ( LPSTR)"KEY  TERRAIN", 

WS_CHILD ! WS_SYSMENU ! WS_CLIPSIBLINGS ! WS_CAPTION ! WS_VISIBLE , 

140,  5*screen_height/200,  480,  120*screen_helght/200,  main_window,  NULL, 
intacval_instance , ( LPSTR )NULL ) ; 
new_fp  «  open ( KEY_FI LE_NAME ,  0_BINARY); 

f ile_handle[0]  «  CreateWindow( (LPSTR)"FILES" ,  ( LPSTR)"GENERAL  TERRAIN", 
WS_CHILD ! WS_SYSMENU ! WS_CLIPSIBLINGS ! WS_CAPTION ! WS_VISIBLE , 

130,  1 3*screen_height/200 ,  480,  l20*screen_height/200 ,  main_window,  NULL, 
intacval  instance, (LPSTR)NULL); 

) 


get_f riendly_files( ) 

{ 

char  file_caption[3] [20] ; 

HANDLE  ltext_handle; 
int  fp; 

destroy_current_childs( ); 
checkfigure( ) ; 

if  (current_highlight  !«  NULL) 

SendDlgItemMessage( current_f igure ,  current_highlight ,  BM_SETST ATE , 

FALSE, (LONG)NULL); 
show_mask  ■  0x1f; 
redo_screen( ) ; 

current_hlghlight  »  DLG_F_CAP; 

SendDlgItemMessage( current_f igure ,  current_highlight ,  BM_SETSTATE , 

TRUE, (LONG)NULL); 
no_of__open_f  iles  «  3; 
current_active_window  «  1 ; 

strcpy(s,  "To  review  text,  click  on  the  tittle  of  the  window  containing  "); 
strcat(s,  "the  text  you  want  to  see.  Click  on  the  arrows  to  scroll  text."); 
SetDlgItemText( current_f igure ,  DLG_CLICK,  (LPSTR)s); 
new_fp  -  open( FCON  FILE  NAME,  0_BINARY ) ; 

f ile_handle[2]  -  CreateWindow( ( LPSTR)"FILES" ,  (LPSTR)"CONDITION” , 

“wS_CHILD : WS_SYSMENU ! WS_CLIPSIBLINGS ! WS_CAPTION ! WS_VISIBLE , 

140,  5*screen_height/200 ,  480,  120*screen_height/200 ,  <nain_window,  NULL, 
intacval_instance , ( LPSTR  )NULL ) ; 
new_fp  -  open?FREI  FILE  NAME,  0_BINARY ) ; 

f lle_handle[1 ]  •  CreateWlndow( ( LPSTR )"FILES" ,  (LPSTR) "REINFORCEMENTS". 
~WS_CHILD ! WS_SYSMENU ! WS_CLIPSIBLINGS ! WS_CAPTION ! WS_VISIBLE , 

130,  13*screen_height/200,  480,  l20*screen_height/200,  main_window,  NULL. 
lntacval_in stance , ( LPSTR  )NULL ) ; 
new_f p  ■  openTFCOM_FILE_NAME,  0_BINARY ) ; 
file  handle[0]  ■  CreateWindow( ( LPSTR ) "FILES" , 

“(LPSTR) "COMPOSITION/LOCATION/DISPOSITION" , 


1 

I 

I 

I 
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WS_CHILD  !  WS_SYSM£NU  !  WS_CLIPSIBLINGS  WS_CAPTION  !  WS_VISIBLE , 

120,  21 *screen_height/200 ,  480,  1 20"screen_height/200 ,  main_window, 
intacval  instance ,( LPSTR  )NULL ) ; 

) 


get_enemy_f iles( ) 

{ 


char  file_caption[3] [20] ; 

HANDLE  ltext_handle; 
int  fp; 

destroy_current_childs( ) ; 
checkf igure( ) ; 

if  (current_highlight  !-  NULL) 

SendDlgItemMessage( current_f igure ,  current_highlight ,  BM_SETSTATE , 
FALSE, (LONG )NULL); 
show_mask  «  0x1f00; 
redo_screen( ) ; 

current_highlight  «  DLG_E_CAP; 

SendDlgItemMessage( current_f igure ,  current_highlight ,  BM_SETST ATE , 

TRUE, (LONG )NULL); 
no_of_open_f lies  «  3; 
current_active_wlndow  «  1 ; 

strcpy(s,  "To  review  text,  click  on  the  tittle  of  the  window  containing 
strcat( s ,  "the  text  you  want  to  see.  Click  on  the  arrows  to  scroll  text. 
SetDlgItemText(current_figure,  DLG_CLICK,  (LP.STR)s); 
new_fp  -  open(ECON_FILE_NAME,  0  BINARY); 

f ile_handle[2]  -  CreateWindow( ( LPSTR)"FILES" ,  ( LPSTR)"CONDITION" , 
WS_CHILD ! WS_SYSMENU ! WS_CLIPSIBLINGS ! WS_CAPTION ! WS_VISIBLE , 

140,  5*screen_height/200,  480,  120*screen_height/200 ,  main_window, 
intacval_instance, ( LPSTR )NULL ) ; 
new  fp  -  open(EREI_FILE_NAME,  0  BINARY); 

f ile_handle[l ]  •  CreateWindow( ( LPSTR ) "FILES" ,  ( LPSTR) "REINFORCEMENTS" , 
WS_CHILD ! WS_SYSMENU ! WS_CLIPSIBLINGS ! WS_CAPTION i WS_VISIBLE , 

130,  1 3»screen_height/200 ,  480,  120*screen_height/200,  main_window, 
intacval_instance, (LPSTR)NULL); 
new_fp  •  open ( ECOM_FILE_NAME ,  0_BINARY ) ; 

f ile_handle[0]  »  CreateWindow( ( LPSTR) "FILES" ,  * 

( LPSTR)"COMPOSITION/LOCATION/DISPOSITION" , 

WS_CHILD : WS_SYSMENU ! WS_CLIPSIBLINGS ! WS_CAPTION ! WS_VISIBLE , 

120,  2l*screen_height/200 ,  480,  120*screen_height/200 ,  main_window, 
intacval_instance , (LPSTR)NULL); 

) 


get_e_coa(n ) 
int  n; 


i 


( 

char  strl[30],  str2[30]; 


I 

I 


show_mask  &•  0x2020; 
show_mask  !■  0x3f1f; 
redo  screen(); 


\ 


NULL, 


"); 

"); 


NULL, 


NULL, 


NULL, 
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I 

I 

I 

I 

1 

I 

I 

I 

I 


no_of_open_f iles++ ; 

strcpy( strl , ENEMY_FILE_NAME ) ; 

sprintf( str2, "£s£d" , strl , current_e_coa ) ; 

new_fp  «  open( str2 ,  0_RD0NLY  !  0_BINARY); 

sprintf ( strl ,  "RED  COA  #£d" , current_e_coa ) ; 

f ile_handle[n]  «  CreateWindow( ( LPSTR)"FILES" ,  (LPSTR)strl, 

WS_CHILD ! WS_SY$MENU ! WS_CLIPSIBLINGS ! WS_CAPTION i 
WS_VISIBLE ,~ 1 00 ,  0,5,5?  main_window, 

NULL,  intacval_instance, (LPSTR)NULL); 


jet_se_coa(n ) 
int  n ; 

{ 

char  strl [30],  str2[30]; 

show_mask  &*  0x2020; 

show_mask  !»  0x3f1f; 

redo_screen( ) ; 

no_of_open_f iles++ ; 

strcpy( strl , SENEMY_FILE_NAM£ ) ; 

sprintf ( str2 , "5*s£d" , strl , current_e_coa ) ; 

new_fp  -  open(str2,  0_RD0NLY  !  0_BINARY ) ; 

sprintf  ( strl ,  "RED  COA  #3td" ,  current_e_coa) ; 

f ile_handle[n]  *  CreateWindow( ( LPSTR)"FILES" ,  (LPSTR)strl, 

WS_CHILD I WS_SYSMENU ! WS_CLIPSIBLINGS 1 WS_CAPTION I 
WS_VISIBLE,~100,  0,  5 , ~ 5 ,  main_window, 

NULL ,  intacval_instance , ( LPSTR )NULL ) ; 


get_f_coo( n ) 
int  n; 


{ 

char  strl [30],  str2[30]; 


show_mask  &«  0x2020; 

show_mask  i»  0x1 f3f; 

redo_screen( ) ; 

no_of_open_f iles++; 

strcpy( strl , FRIENDLY_FILE_NAME ) ; 

sprintf  ( str2 ,  "its^d"  ,  strl ,  current_f_coa ) ; 

new_fp  «  open(str2.  0_RD0NLY  !  0_BINARY); 

sprintf ( strl ,  "BLUE  COA  #£d" , current_f_coa ) ; 

f ile_handle[n]  «  CreateWindow( ( LPSTR )"FILES" ,  ( LPSTR )str1, 

WS_CHILD ! WS_SYSMENU ! WS_CLIPSIBLINGS ! WS_CAPTION ! 
WS_VISIBLE,  100,  0,  5,  5,  main_window, 

NULL,  intccvol_instance, ( LPSTR)NULL ) ; 


'get_sf_coa( n ) 
int  n; 


char  strl [30] , 

I 

I 


Str2 [30] ; 


\ 
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I 

I 


show_mask  &•  0x2020; 

show_mask  »  0x1  f3f; 

redo_screen( ) ; 

no_of_open_f iles++ ; 

strcpy(  strT, SFRIENOLY_FILE_NAME ) : 

spri ntf ( str2 , "£s£d" , str 1 , current_f_coa ) ; 

new_fp  «  open(str2,  0_RD0NLY  :  0_BINARY ) ; 

sprintf ( strl ,  "BLUE  COA  #£d" , current_f_coa ) ; 

f ile_handle[n]  -  CreateWindow( ( LPSTR")  "FILES" ,  (LPSTR)strl, 

WS_CHILD ! WS_SYSMENU i WS_CLIPSIBLINGS ! WS_CAPTION I 
WS_VISIBLE ,  100,  0,  5,  5,  main_window, 

NULL ,  intacval_in stance , ( LPSTR )NULL ) ; 


Jswitch_active_window( hwnd ) 

HWND  hwnd; 

I 

int  i,  new_i[3]; 

tint  fp[3],  num_lines[3] ,  current_line[3] ; 
long  f  ilepointer  [3] -, 
char  text[3] [50] ; 
int  maxpos[3],  minpos[3],  pos[3]; 

f  for(i  «  0;  1  <  no_of_open_files;  i++) 

{ 

Iif  (file  handle[i]  ««  hwnd) 

< 

new_i[0J  «  i; 
break ; 


) 

) 

if  (i  »«  0)  return; 
switch_current( i ) ; 
if  ( no_of_open_f lies  »■  2) 
switch2(i,  new_i ) ; 
else 

switch3(i,  new_i); 

for(i  «  0;  i  <  no  of_open_f iles ;  i++) 

( 

fp[i]  «  GetWindowWord(file_handle[new_i[i]] ,  0); 
num_lines[i]  «  GetWindowWord( f ile_handle[new_i [i]] ,  2); 
current_line[i]  «  GetWindowWord( file_handle[new_i[i]] ,  6); 
f ilepointer[i]  »  GetWindowLong( file_handle[new_i[i]] ,  8); 
GetWlndowText(file_handle[new_i[i]] , (LPSTR)text[i] ,  50); 
GetScrollRange(file_handleCnew_i[i]) ,  SB_VERT,  ( LPINT)(minpos+i ) , 
( LPINT  )(maxpos+i ) ) ; 

pos[l]  »  GetScrollPos( file  handle[new  i[i]],  SB_VERT); 

> 

for(i  «  0;  1  <  no  of_open_f iles ;  i++) 

{ 

SetWindowWord( f ile_handle[i] ,  0,  fp[i]); 

SetWindowWord( file_handle[i] ,  2,  num_lines[i] ) ; 

SetWindowWord( f ile_handle[i] ,  6,  current_line[i] ) ; 
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ISetWindowLong(fileJiandle[i],  8,  filepointer[i]); 

SetWindowText( f ile_handle[i] ,  ( LPSTR)text [i] ) ; 

SetScrollRange( f ile_handle[i] ,  SBJ/ERT,  minpos[i] ,maxpos[i] ,  FALSE 
.  SetScrollPos(file_handle[i] ,  SB_VERT.  pos[i],  TRUE): 

|  InvalidateRect( f ile_handle[i] ,  (LPRECT)NULL,  NULL): 


switch2(i,  new_i) 
lnt  i,  *new  1; 


new_i[0]  »  1; 
ne w_i [ 1 ]  *  0 : 


switch3(i,  new_l ) 
int  1,  *new  1; 


if  ( i  =»  1 ) 

{ 

new_i[0]  »  1 
new_i[l]  -  2 
new_i[2]  -  0 

) 

else 

{ 

new_i[0]  *  2 
new_i [ 1 ]  »  0 
new_i[2]  «  1 


switch_current(  i ) 

int  iT 


int  n; 

n  «  current_octi ve_wlndow  *  i; 
if  (n  >  no_of_open_files) 

current_active  window  *  n  %  (no_of_open_files  -  1): 
else 

current_active_window  «  n; 
return ; 


I  destroy_current_childs(  ) 


Iint  i,  n; 

n  «  no_of_open_f iles ; 
for(i  «  n-1 ;  i  >•  0:  i — ) 

I  DestroyWindow( f ile_handle[i] ) ; 
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Ishow_mask  •  0; 
redo  screen(); 

) 

J  delete__one_child(  hwnd  ,  pi  ) 

HWND  hwnd; 

|  int  *pi; 

( 

-  int  i,new_i; 

I  f ind_which_window( hwnd ,  &new__i  ) ; 

*pi  »  new_i : 

|  if  (new_i  <  ( no_of_open_f iles  -  1)) 

for  (i  »  new  i:  i  <  ( no_of_open_f iles  -  1):  i++) 

I<  "  r  . 

file_handle[i]  -  file_handle[i+1 J ; 

> 

Ino_of_open_f  iles — 
return , 


ichange_window_pos(hwnd, i) 
HWND  hwnd: 


HWND  hwnd 
int  i; 


switch(figflag) 

^ case  130:  case  131:  case  132:  case  140:  case  141:  cose  142: 

PostMessage( current_f igure , WM_COMMAND, DLG_START, ( LONG) ( LPSTR )NULL ) 
break ; 

case  135:  case  136:  case  137:  case  145:  case  146:  case  147: 

one_window_two_buttons( i ) ; 
break ; 

) 

case  138:  case  148: 

two  windows_one_button( i ) ; 
break ; 

} 

default : 
break : 


update_opposing_forces( new_curvec  ,  old_curvec ) 
unsigned  char  new_curvec [] ,  old_curvec []  : 


I 
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( 

int  i ; 

for  (i  =  3;  i  <  8;  i++) 

{ 

old_curvec[i]  «  new_curvec [i+5] ; 

) 

for  ( i  =  8 ;  i  <  13;  i++) 

{ 

old_curvec[i]  =  new  curvec[i-5]; 

} 


checkfigure(  ) 

{ 

if  (figflag  <  130)  return; 

SendMessage( current_f igure ,  WM_COMMAND.  DLG  START,  ( LONG )( LPSTR )NULL ) ; 

) 

continue_f unc( ) 


if  ( (current_active_window  <  no_of_open_f iles ) 

&&  (figflag  <  130)) 

{ 

switch_active_window( f ile_handle[ 1 ] ) ; 
if  (current_highl'ight) 

{ 

SendDlgItemMessage(current_figure,  current_highlight ,  BM_SETST ATE , 
TRUE. (LONG  )NULL); 

) 


return ; 

> 

if  ((figflag  <  50)  !!  (figflag  >  148)) 

( 

return ; 

) 

switch ( figflag ) 

{ 

case  50: 

PostMessage ( cur rent_f igure, WM_COMMAND, DLG_MISS ION, ( LONG ) ( LPSTR )NULL ) ; 
return ; 
case  60: 

PostMessage( current_f igure , WM_COMMAND , DLG_TERR AIN , ( LONG )( LPSTR )NULL ) ; 
return ; 
case  90: 

PostMessage( current_f igure , WM_COMMAND , DLG_F_CAP , ( LONG )  (  LPSTR )NULL ) ; 
return ; 
case  110: 

1  PostMessage( current_f igure , WM_COMMAND , DLG_E_CAP , ( LONG ) ( LPSTR )NULL ) ; 

return ; 

I  case  120: 

PostMessage( cur rent_f igure, WM_COMMAND, DLG_E_COA,  (  LONG )(  LPSTR )NULL ) : 
return ; 

I 

I 
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I  case  130:  case  131:  case  132:  case  140:  case  141:  case  142: 

PostMessage(  current_f  igure ,  WM_COMMAND ,  DLG_BUTT0N1  ,  (  LONG )  (  LPSTR  )NULL  ) 
return ; 

I  case  135:  case  136:  case  137:  case  145:  case  146:  case  147: 

PostMessage(current_f igure , WM_COMMAND , DLG_BUTTON, ( LONG ) ( LPSTR )NULL ) ; 
return ; 
case  138: 

IPostMessage( current_f igure , WM_COMMAND , DLG_F_COA , ( LONG ) ( LPSTR )NULL ) ; 
return ; 
default : 

(return ; 

>> 

I 

I 

I 

I 

I 

! 


I 

I 

I 

I 
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^^include  "intacval.h" 

scanfile(fp,  plines,  pools) 

J  int  fp; 

int  *plines,  *pcols; 

1 

J  char  buffer[ MAXLENGTH]; 
iht  i,  j,  n,  maxcols; 

I  maxcols  -  0; 

•plines  ■  0; 

|while((n  »  getline(buffer,  MAXLENGTH,  fp))  • 

{ 

•plines  +«  1 ; 
j  -  0; 

Ifor(i  -  0;  i  <  n;  i++) 

< 

if  (buffer[i]  !«  ’\t’) 

j++; 

I  else 

{ 

j  &«  ~7; 

Ij  +«  8; 

>  > 

if  (j  >  maxcols)  maxcols  «  1: 

I  > 

|  *00013  «  maxcols; 

) 

( 

getline( buffer ,  maxlength,  fp) 


int  fp,  maxlength; 
char  “buffer; 


1 

J 

1 

I 

I 


int  n; 

long  epos,  newpos; 
char  *p ; 

n  »  read(fp,  buffer,  maxlength  -  1); 
if  (n  o  0) 

{ 

bu ffer[0]  »  NULL; 
return  EOF; 

) 

buffer[n]  -  NULL; 

epos  -  lseek(fp,  01,  i); 

p  »  strchr(buffer,  ’ \n’); 

If  (p) 

{ 

newpos  -  epos  -  (long)(n  -  (p  -  buffer)  - 
lseek(fp,  newpos,  0); 
return( int)(p  -  buffer); 


•  EOF) 


2)  -  1 
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> 

return  n; 


J repaint  (hwnd,  IpArea) 
HWND  hwnd : 

|  LPPAINTSTRUCT  IpArea; 

{ 


I 

1 

I 

I 

I 

I 

! 


i 

1 

I 


char  buffer [MAXLENGTH  +  5]; 
char  longbuffer[MAXLENGTH  +  5]; 

int  i,  j,  start_col,  num_cols,  base_col,  top_edge; 
int  start_line,  num_lines,  base_line,  last_base_line; 
int  fp,  n; 

long  basepos,  lastbasepos; 

base_col  ■  GetScrollPos(hwnd,  SB_HORZ); 
base_line  «  GetScrollPos(hwnd,  S8_VERT); 

BeginPaint(hwnd,  IpArea); 

SelectObject( lpArea->hdc,  GetStockObJ eet(OEM_FIXED_FONT) ) ; 

start_col  «  lpArea->rcPaint . left/font_sizing . tmMaxCharWidth ; 

num_cols  «  lpArea->rcPaint . right/font_sizing . tmMaxCharWidth-start_col+ 1 ; 

top_edge  «  ( lpArea->rcPaint . top/font_sizing . tmHeight)*font_sizing . tmHeight ; 

start_line  -  lpArea->rcPaint. top/font_sizing. tmHeight; 

if  (start_llne  <  0) 

{ 

EndPaint(hwnd,  IpArea); 
return; 

) 

num_lines  «  lpArea->rcPaint . bottom/font_sizing . tmHeight-stort_line+1 ; 
fp  •  GetWindowWord(hwnd,  0); 
set_new_base(hwnd,  fp,  base_line,  ibasepos); 
basepos  •  lseek(fp,  01,  1); 

SetWindowlong(hwnd,  8,  basepas); 

SetWindowWord(hwnd,  6,  base_line); 
for  (i  »  0;  i  <  start_line;  i++) 

< 

getline( buffer,  MAXLENGTH,  fp); 

) 

for  (i  »  0;  i  <  num  lines;  1++) 

{ 

n  «  getline( buffer ,  MAXLENGTH,  fp); 
initvec( longbuffer ,  MAXLENGTH); 
transbuf f er ( buf f er ,  longbuffer ) ; 

TextOut( lpArea->hdc,  stort_col  *  font_sizing . tmMaxCharWidth , 

(i  +  start_line)*  font_sizing. tmHeight, 

( LPSTR)( longbuffer  +  base  col+start  col),  num  cols); 

) 

EndPaint(hwnd,  IpArea); 

) 

set_new_base(hwnd,  fp,  base_line,  pbasepos) 

HWNO  hwnd; 

int  fp,  base_line; 

long  'pbasepos; 
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ft  ( 

int  i,  last_base_line,  last_line; 

(long  lastbasepos,  lostpos; 
char  buffer [MAXLENGTH] ; 

last_base_line  *  GetWindowWord(hwnd, 6): 

]  lastbasepos  «  GetWlndowLong( hwnd, 8) ; 
last_line  -  GetWindowWord(hwnd,  2); 
if  (base  line  >  last  base  line) 

{ 

if  ((base_line  -  last  base  line)  <»  (last  line  -  base  line)) 

{ 

lseek(fp,  lastbasepos,  0); 

for  (i  »  0;  i  <  (base_line  -  last  base_line);  i++) 

( 

getline( buffer ,  MAXLENGTH,  fp); 

) 

•pbasepos  «  lseek(fp,  01,1); 

) 

else 

( 

lastpos  -  lseek(fp,  01,  2); 

seekback(fp,  last_line,  lastpos,  base  line,  pbosepos); 

) 

) 

else 

( 

I  if  ( base_line  <-«  ( last_base_line  -  base  line)) 

(  ' 
lseek(fp,  01,  0); 

,  for  (i  -  0;  i  <  base_line;  i++) 

( 

getline( buffer ,  MAXLENGTH,  f p ) ; 

) 

•pbasepos  «  lseek(fp,  01,1); 

) 

else 

( 

if  (base_line  ««  last  base  line) 

( 

lseek(fp,  lastbasepos,  0); 

•pbasepos  »  lastbasepos; 

) 

else 

seekback(fp,  last_base  line,  lastbasepos,  base_line,  pbasepos); 

) 

) 

) 

seekback(fp,  current_base_line,  current_base_pos , new_base_line ,  pbasepos) 
4  int  fp,  current_base_line,  new_base_line ; 
long  current_base  pos,  •pbasepos; 

1, 

int  i; 

I 

I 
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Slong  new_pos; 

static  long  pos[1000]; 
char  buffer [MAXLENGTH] ; 

J  while  (new_base_line  <  current_base_line) 
{ i  *  0; 

f  if  (current  base_pos  <»  10001) 

I  < 

*  lseek(fp,  01,  0); 

for  (i  «  0;  i  <  new  base  line;  1++) 

I  ( 

I  getline( buffer,  MAXLENGTH,  fp); 

> 

*pbasepos  «  lseek(fp,  01,  1); 

I  return; 

•  ) 

lseek(fp,  current_base_pos  -  10001,  0); 
■  getline( buffer, MAXLENGTH,  fp); 

I  pos[0]  «  lseek(fp,  01,  1); 

while(pos[i]  <  current_base  pos) 

( 

I  getline( buffer,  MAXLENGTH,  fp); 

1  i++  ; 

pos[i]  ■  lseek(fp,  01,  1); 

■  ) 

I  current_base_line  --  i; 

current_base_pos  «  pos[0]; 

) 

Ji  -  new_base_line  -  current_base_line; 
"pbasepos  «  pos[i]; 
lseek(fp,  *pbasepos,  0); 

) 

vert_scroll  (hwnd,  Jump_type,  new_pos) 

HWND  hwnd; 

■  WORD  jump_type; 
int  new_pos; 


int  old_pos,  page_length,  min_pos,  ma>c_pos; 

RECT  window_rect; 

GetScrollRange( hwnd ,  SB_VERT,  ( LPINT )&min_pos ,  ( LPINT)4max_pos ) ; 
GetClientRect( hwnd ,  ( LPRECT )&window_rect ) ; 
page_length  »  window_rect . bottom/ font_sizing . tmHeight  - 
window_rect . top/ f ont_sizing . tmHeight ; 
old_pos  »  GetScrollPos(hwnd,  SB_VERT); 
switch  (Jump_type) 

{ 

case  SBJ.INEUP: 

if  (old  pos  >  min  pos) 

( 

SetScrollPos(hwnd,  SB_VERT,  old_pos-1,  TRUE); 
ScrollWindow( hwnd ,  0,  font_sizing . tmHeight ,  ( LPRECT )NULL , 
(LPRECT)NULL)T 
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i 

J 

I 

J 

1 


) 

break ; 

case  S8_LINED0WN: 

if  (old_pos  <  max_pos) 

{ 

SetSerollPos(hwnd,  S8_VERT,  old_pos+1,  TRUE): 
ScrollWindow(hwnd,  0,  -font_slzing . tmHeight ,  ( LPRECT)NULL , 
( LPRECT )NULL ) ; 

) 

break ; 

case  SB_PAGEUP: 

if  (old_pos  >  min_pos) 

< 

if  ((old_pos  -»  page_length)  <  min_pos) 

{ 

old_pos  «  min  pos; 

> 

SetScrollPos(hwnd ,  SB_VERT ,  old_pos,  TRUE): 

InvalidateRect( hwnd ,  TlPRECT  )NULL ,  FALSE): 

) 

break ; 

case  SB_PAGEDOWN: 

if  (old_pos  <  max_pos) 

{ 

if  ((old_pos  +*  page  length)  >  max_pos) 

{ 

old_pos  -  max_pos-, 

) 

SetScrollPos( hwnd ,  SB_VERT ,  old_pos,  TRUE); 

InvalidateRect( hwnd ,  ?LPRECT )NULL ,  FALSE): 

) 

break ; 

case  SB_THUMBPOSITION: 

SetScrollPos(hwnd,  SB_VERT,  new_pos,  TRUE): 

InvalidateRect( hwnd ,  ( LPRECT )NULL ,  FALSE): 
break ; 

case  SB_THUMBTRACK : 
break ; 

case  SB_TOP: 

SetScrollPos(hwnd,  SB_VERT,  min_pos,  TRUE): 

InvalidateRect( hwnd ,  ( LPRECT )NULL,  FALSE): 
break ; 

case  SB_BOTTOM: 

SetScrollPos(hwnd,  SB_VERT,  max_pos,  TRUE); 

InvalldateRect( hwnd ,  ( LPRECT)NULL,  FALSE); 
break ; 

case  SB_ENDSCROLL: 
break ; 

) 

) 

change_f ile( window_handle ,  new_f lie ) 
char  *new  file; 
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■  close(GetWindowWord(window_handle ,  0)); 

new_fp  «  open( new_f ile ,  0_RD0NLY  1  0_BINARY); 

ISetWindowWord(window_handle,  0,  new_fp); 
scanfile(new_fp,  &num_lines,  &num_cols); 
SetWindowWord(window_handle ,  2,  num_lines); 

1SetWindowWord(window_handle,  4,  num_cols); 
SetWindowWord(window_hondle,  6,  0); 
SetWlndowLong(window_handle,  8,  01); 


lchange_current_coa( ) 


Iint  resp,  i; 
char  str[30]; 

RECT  window__rect; 
h  char  st1[80],  st2[80] , st3[80] ; 

®  resp  »  MessageBox( current_f igure ,  (LPSTR)"New  COA  indicated.  Review  new  COA?", 
(LPSTR)"CHANGE  COA",  MB_YESNO ) ; 

I  if  (resp  **  1DNO) 
return; 

current_f_coa  -  get_current_coa( fcoa ,  f_curvec); 

Icurrent_e_coa  ■  get_current_coa(ecoa ,  e_curvec); 
for  (i  «  0;  i  <  no_of_open_f iles  -  1;  i++) 


GetWindowRect( f ile_handle[l] ,  ( LPRECT )«window_rect ) ; 
switch  (i  0  ?  f igf lag  :  -figflag) 


case  146 
case  148 
case  137 


case  -138: 


strcpy( stl , FRIENDLY_FILE_NAM£ ) ; 
if  ( no_of_open_f iles  ■«  3) 
sprintf  ( st2 ,  "£s?£c£d"  ,  stl ,  '  s  ’  ,  current_f_coa ) ; 
else 

sprintf  ( st2 ,  "£s?Cd"  ,  stl ,  current_f_coa ) ; 
sprintf ( st3 ,  "BLUE  COA  #£d" , current_f_coa ) ; 
SetWlndowText( f lle_handle[i] ,  (LPSTR)st3); 
break; 
case  136: 

case  138:  case  -148: 
case  147: 

strcpy( stl , ENEMY_FIIE_NAME ) ; 
if  (no_of_open_files  «■  3) 
sprintf  ( st2,  "£s£c£d"  ,  stl ,  '  s  ’  ,  current_e_coa ) ; 
else 

sprintf ( st2 , "#s*d" , stl , current_e_coa ) ; 
sprintf(st3,  "RED  COA  #Kd" , current_e_coa ) ; 
SetWindowText( f ile_handle[i] ,  ( LPSTR)st3 ) ; 
break ; 

) 

change_f ile( f ile_handle[i] ,  st2 ) ; 

lnvalldateRect(f7le_handle[l] ,  ( LPRECT )NULL ,  TRUE); 
SendMessage( f ile_handle[i] ,  WM_SIZE,  SIZENORMAL, 


v 
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I  (( LONG )(window_rect . bottom  -  window_rect . top )  <<  16)  I 

window_rect . right  -  window_rect . left ) ; 

) 

switch  ( no_of_open_f iles ) 

( 

case  1 : 

SendMessage( current_f igure, WM_COMMAND , DLG_BUTT0N1 , ( LONG)( LPSTR )NULL ) 
case  2: 

PostMessage( current_f igure , WM_C0W1AND, DLG_BUTTON, ( LONG)( LPSTR )NULL ) ; 
break; 


I  > 

J  redo_screen( ) ; 


|set_box(hwnd,  lparam,  no_of_boxes , coors , curvec , num_sets ) 

HWND  hwnd; 

LONG  lparam; 
int  no_of_boxes[] ; 

RECT  coors[][6]; 

I  unsigned  char  curvec[]; 


POINT  point; 

POINT  screen; 

RECT  rect; 

int  l,  J,  k,  boxflag,  base_line,  base_col; 

boxf lag  »  FALSE; 

point  -  MAKEPOINT( lparam); 

base_line  »  GetScrollPos( hwnd ,  SB_VERT); 

base_col  -  GetScrollPos(hwnd,  SB_HORZ); 

screen. x  » 

point. x  /  font_sizing . tmMaxCharWidth  +  base_col  +  1; 
screen. y  « 

point. y  /  font_sizing . tmHeight  +  base_line  +  1; 
i  »  0 ; 

while  (i  <  num  sets) 

{ 

for(j  «  0;  j  <  no_of_boxes[i] ;  J++) 

< 

if  (((screen. x  >»  coors[i] [ J ] . lef t )  && 

(screen. x  <•  coors[i] [j] . right) )  && 

((screen. y  >«  coors[i] [j] . top )  && 

(screen. y  <-  coors[i] [j] . bottom) ) ) 

( 

boxflag  «  TRUE; 
break; 


if  (boxflag  «■  TRUE) 
break ; 
else  i++; 


if  (boxflag  *■  TRUE) 
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If  ((curvec[i]  &  0x80)  -«  0) 

( 

if  (curvec[i]) 

< 

for  (k  «  0;  !(curvec[i]  4  (1  <<  k ) ) ;  k++) 

< 

> 

rect . left  «  (coors[i] [k] . left-base_col )*font_sizing . tmMaxCharWidth-1 
rect.top  «  { coors[i] [k] . top-base_line )*font_sizing . tmHeight-4 ; 
rect . right  «  (coors[l] [k] . right-base_col )*font_sizing . tmMaxCharWidth 

rect . bottom  »  ( coors[i] [k] . bottom-base_line)*font_sizing . tmHeight-6 ; 
InvalidateRect( hwnd, ( LPRECT )4rect , FALSE ) ; 

> 

curvec[i]  -  (0x01  <<  j); 

> 

else 

( 

curvec[i]  (0x01  <<  J); 

> 

rect. left  «  (coors[i] [j] . lef t-base_cc * )*font_sizing . tmMaxCharWidth-1 ; 
rect.top  «  (coors[i][j] . top-base_line)*font_sizing. tmHeight-4; 
rect. right  «  (eoors[i] [j] . right-base_col )*font_sizing . tmMaxCharWidth-6 ; 
rect. bottom  «  (coors[i][j] . bottom-base_line)*font_sizing . tmHeight-6 ; 
InvalidateRect(hwnd, ( LPRECT )4rect, FALSE); 


count_bits(n) 
unsigned  char  n ; 


int  1,  tot; 

1  tot  «  0; 

for  (i  -  0;  i  <  6;  i++) 

( 

(  tot  +«  (n  >>  i)  4  0x01 ; 
return  tot; 


'  f ind_max( j ) 
int  J  [] ; 


int  i ; 


i  »  0 ; 

if  ( J  Cl]  >  j  [0]  )  i  - 
if  ( J  [2]  >  J  C i 3 )  i  ■  2; 
return  ( i  +  1  ) ; 


\ 


1 

I 

I 


I 

I 

I 

r 
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^include  * 

intacval , h" 

unsigned  char  ecoa[][3] 

V 

0, 

0, 

0. 

0X01  , 

0x01 , 

0X01  , 

0x02, 

0x02, 

0x02, 

0x15, 

0x15, 

0x15, 

0x07, 

0x08, 

0x10, 

0x01  , 

0X01  , 

0X01  , 

0x03, 

0x04 , 

0x04 , 

0x04, 

0x01  , 

0x02 , 

0x19, 

0x12, 

0x14, 

0x07, 

0X00  , 

0x07, 

0x01  , 

0X01  , 

0X01  , 

0x02, 

0x04 , 

0x01  , 

0x02, 

0X01  , 

0x02, 

0x01  , 

0x01  , 

0x01  , 

0x04 , 

0x04, 

0x01  , 

0x04 , 

0x04, 

0X01  , 

0x02, 

0x04 , 

0X01  , 

0x02, 

0x04 , 

0x01  , 

0X01  , 

0x04 , 

0X01  , 

0x02, 

0x04 , 

0x02, 

0x02, 

0X02, 

0x02, 

0x02, 

0x02, 

0x02, 

0.0,0, 

0.0,0 

AM 


unsigned  char  fcoa[][3] 
{ 


0x01  , 

0x01  , 

0x01  , 

0x00 . 

0X00  , 

0X00  , 

0x02, 

0X01  , 

0x02 , 

0x15, 

0x1  d, 

0x15, 

0x03 , 

0x30, 

0x0c , 

0X01  , 

0X01  , 

0X01  , 

0x01  , 

0x02, 

0x02, 

0x02, 

0x01  , 

0x01  , 

0x1f , 

0x15, 

0x13, 

0x07, 

0X00, 

0x07, 

0X01  , 

0X01  , 

0X01  , 

0x04 , 

0x02, 

0X01  , 

0x01  , 

0x01  , 

0x02, 

0X01  , 

0X01  , 

0X01  , 

0x01  , 

0X01  , 

0x04, 

0x01  , 

0x04 , 

0X01  , 

0x02, 

0x02, 

0x04 , 

0x02, 

0x04 , 

0X01  , 

0x01  , 

0x02, 

0x04 , 

0X01  , 

0x02, 

0X01  , 

0x02, 

0x02, 

0x02, 

0x01  , 

0x01  , 

0x01  , 

0.0,0, 

0,0.0 


I 
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/*1 -1*/ 
/*1 .2*/ 
/*2. 1*/ 
/*3.1*/ 
/*3.2*/ 
/*3.3*/ 
/ *3 . 4*/ 
/*3 . 5*/ 
/ *4 . 1*/ 
/*4.2 */ 
/* 4.3*/ 
/*4.4*/ 
/*4.5*/ 
/* 4.6*/ 
/*3.1*/ 
/*5.2*/ 
/*5 . 3*/ 

/ *5 . 4*/ 
/* 5.5*/ 
/*5.6*/ 
/*5.7*/ 
/*5.8*/ 
/*5.9*/ 
/*5. 10*/ 


/*1.1*/ 
/*1 . 2*/ 
/*2. 1*/ 
/*3 . 1*/ 
/*3.2*/ 
/* 3.3*/ 
/*3 .4*/ 
/*3.5 */ 
/* 4.1*/ 
/*4 , 2*/ 
/*4 . 3*/ 
/*4 . 4*/ 
/*4 , 5*/ 
/*4 . 6*/ 
/*5 .1*/ 
/*5 . 2*/ 
/*5 . 3*/ 
/*5 . 4*/ 
/*5 . 5*/ 
/*5 . 6*/ 
/*5 . 7*/ 
/*5.8*/ 
/*5 . 9*/ 
/*5 .10*/ 


V 
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unsigned  char  e__curvec[]  ■  { 


m  0 ,  0x01  , 

0x02, 

0x95 , 0x04 , 

0x01  , 

1  0x02, 

0x04 , 

0x99, 

0x04 , 

0x01 ,  0x02 , 

■  0x02, 

0, 

0x04 , 

0x04,  0x02, 

0x02, 

0x01  , 

I 

0. 

0. 

0. 

>: 

0, 

0 

1 

unsigned 

char 

f  curvec[]  « 

( 

0X01, 

0x00 , 

0x02, 

0x95,0x01,  0x01, 

1  0X01, 

0x02, 

0x86, 

0x01  , 

0x01 ,  0x01 , 

®  0X01 , 

0. 

0x04 , 

0x04,  0x02, 

0x02, 

0X01  , 

0. 

0. 

0. 

} ; 

0, 

0 

1 

unsigned 

char 

e  defvec[]  * 

{ 

0 ,  0x01 , 

0x02, 

0x95 , 0x04 , 

0X01  , 

■  0x02, 

0x04 , 

0x99, 

0x04 , 

0x01,  0x02, 

■  0x02, 

0, 

0x04 , 

0x04,  0x02, 

0x02, 

0X01  , 

■ 

0. 

0. 

0. 

> ; 

0, 

0 

"unsigned 

char 

f_defvec[]  » 

{ 

0x01 , 

0x00 , 

0x02 , 

0x95 , 0x01 ,  0x01 , 

■  0x01, 

0x02, 

0x86, 

0x01  , 

0x01,  0x01, 

1  0X01, 

0. 

0x04, 

0x04,  0x02, 

0x02, 

0X01  , 

t 

0, 

0. 

0. 

); 

0. 

0 

1  int  e  no 

C 

0, 

_of 

boxes [] 

m 

/*1.1*/ 

1 , 

/*1 .2*/ 

2, 

/*2 . 1 */ 

5. 

/*3.1»/ 

6, 

1*5.2*/ 

1 , 

/*3.3*/ 

4, 

/*3 .4*/ 

3, 

/* 3.5*/ 

5, 

/ *4 . 1  */ 

6, 

/*4.2*/ 

1  , 

-/*4. 3*/ 

4, 

/* 4.4*/ 

3. 

/*4.5*/ 

3, 

/*4.6*/ 

3, 

/*5 . 1 */ 

3, 

/*5 .2*/ 

3, 

1*5.5*/ 

3, 

/* 5.4*/ 

1  3’ 

1*5.5*/ 

‘  3, 

/*5 . 6*/ 

3, 

1*5.7*/ 

1  3 

/*5 . 8*/ 

1  3 

/*5 . 9*/ 

3, 

/ "5 . 10*/ 

1 

I 
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1 

95,  12.102, 

14, 

1 

86,  16,  93, 

18, 

95,  16,103, 

18, 

1 

85,  20,  93, 

22, 

1 

95,  20,102, 

}, 

22 

1 , 

3.3*/ 

1  '* 

{ 

105,  7,121, 

), 

10 

4, 

3.4*/ 

1  /* 

{ 

119,  13,129, 

15, 

131,  13,137, 

15. 

121,  17,129, 

19, 

131,  17,137, 
). 

19 

,/* 

3, 

3.5*/ 

{ 

1 

139,  12,145, 

14, 

147,  12,155, 

14, 

143,  15,149, 
). 

17 

/* 

5, 

4.1*/ 

{ 

157,  11,169, 

14, 

171 ,  11,181, 

14, 

157,  16,169, 

20, 

171,  16,181, 

19, 

165,  21  174, 
>, 

25 

/* 

6, 

4.2*/ 

{ 

184,  11,190, 

13, 

192,  11,199, 

13, 

183,  15,190, 

17, 

192,  15,199, 

17, 

183,  19,190, 

21  , 

192,  19,198, 
), 

21 

/* 

1  , 

4.3*/ 

{ 

201,  6,214, 

), 

9 

/* 

4, 

4.4*/ 

{ 

212,  12,222, 

14, 

224,  12,230, 

14, 

214,  16,222, 

18, 

224,  16.230, 

}. 

18 

/* 

3, 

4.5*/ 

{ 

232.  11.238, 

13, 

240,  1 1 , 248, 

13, 

250,  11,256, 

13 
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I 

s 

1 


I 


/* 


/* 


}. 

3.  4.6*/ 

{ 

258,  11,267,  15. 
269.  11,281,  15. 
283,  11,287,  13 
), 

3,  5.1*/ 

{ 

289,  13,296,  16, 
298,  13,304,  15, 
306,  13,313,  16 
). 

3,  5.2*/ 

{ 

315,  13,322,  16, 
324,  13,330,  15, 
332,  13,339,  16 
), 

3,  5.3*/ 

{ 

341,  12,348,  15, 
350,  12,356,  14, 
358,  12,365,  15 
>. 

3,  5.4*/ 

{ 

367,  12,374,  15, 
376,  12,382,  14, 
384,  12,391,  15 
}. 

3.  5.5*/ 

{ 

393,  12,400,  15, 
402,  12,408,  14, 
410,  12,417,  15 
}, 

3,  5.6*/ 

{ 

289,  22,296,  25, 
298,  22,304,  25, 
306,  22,313,  25 
). 

3,  5.7*/ 


I 


/* 


I 


/* 


I 

I 


315,  22,322,  25, 
324,  22,330,  24, 
332,  22,339,  25 
). 

3,  5.8*/ 

{ 

341,  23,348,  26, 
350,  23,356,  25 
358,  23,365,  26 
). 


\ 
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RECT 


I 

I 


I 


I 

I 


{ 

367,  23,374,  26, 
376,  23,382,  25, 
384,  23,391,  26 
}. 

3  5.10*/ 

{ 

393,  23,400,  26, 
402,  23,409,  25, 
411,  23,418,  26 

> 

>; 

f_coors[][6]  « 

{ 


1 

•  W 

1 , 

7, 

9, 

9 

1 

•  2*/ 

3, 

11 , 

14, 

14, 

16, 

1 1  , 

29, 

13, 

3, 

16, 

14, 

19, 

16, 

16, 

24, 

19, 

11  , 

20, 

19, 

22 

2 

.1*/ 

31  , 

11  , 

45, 

16, 

47, 

11 , 

56, 

13 

i.1*/ 

58, 

12, 

68, 

15, 

70, 

12, 

84, 

15, 

54, 

17, 

68, 

20, 

70, 

17, 

80, 

21  , 

63, 

22, 

75, 

25 

3.2*/ 

87, 

12, 

93, 

14, 

95, 

12,  ' 

102, 

14, 

86, 

16, 

93, 

18, 

95, 

16,  ' 

103, 

18, 

85, 

20, 

93, 

22. 

95, 

20, 

102, 

22 

). 

1,  3.3*/ 

{ 

105,  7,121,  10 

). 

4,  3.4*/ 

{ 

119,  13,129,  15, 
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I 

I 

I 

I 


/*  4 


/*  3, 


/*  3, 


/*  3 


I 

I 


131,  13,137, 

15, 

121,  17,129, 

19, 

131,  17,137, 
>. 

19 

3, 

3.5*/ 

{ 

139,  12,145, 

14, 

147,  12,155, 

14, 

143,  15,149, 
), 

17 

5, 

4.1*/ 

{ 

157,  11,169, 

14, 

171,  11,181, 

14, 

157,  16,169, 

20, 

171,  16,181, 

19, 

165,  21,174, 
>, 

25 

6, 

4.2*/ 

{ 

184,  11,190, 

13, 

192,  11,199, 

13, 

183,  15,190, 

17, 

192,  15,199, 

17, 

183,  19,190, 

21  , 

192,  19,198, 
}. 

21 

1, 

4.3*/ 

{ 

201,  6,214, 

9 

4, 

4.4*/ 

{ 

212.  12,222, 

14, 

224,  12,230, 

14, 

214,  16,222, 

18, 

224,  16,230, 

). 

18 

3, 

4.5*/ 

{ 

232,  11,238, 

13, 

240,  11,248, 

13, 

250,  11,256, 

}. 

13 

3, 

4.6*/ 

( 

258,  11,267, 

15, 

269,  11,281, 

15, 

283,  11,287, 
). 

13 

3, 

5.1*/ 

{ 

289,  13,296, 

16, 

298,  13,304, 

15, 

306,  13,313, 

16 

). 


I 


09:13  AM 


\ 

^  —  -  - 
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|/*  3'  {  5-2*/ 

315,  13,322,  16, 

.  324,  13,330,  15, 

332,  13,339,  16 
1  >, 

/*  3,  5.3*/ 

I  { 

I  341,  12,348,  15, 

350,  12,356,  14, 

358,  12.365,  15 

>. 

»/*  3,  5.4-/ 

{ 

1367,  12,374,  15, 

376,  12,382,  14, 

384,  12,391,  15 

|/*  3.  ’  5.5-/ 

393,  12,400,  15, 

|  402,  12,408,  14, 

410,  12,417,  15 
1  }. 

/*  3,  5.6-/ 

{ 

289,  22.296,  25, 

298,  22,304,  25, 

306,  22,313,  25 

). 

/-  3,  5.7*/ 

{ 

315,  22,322,  25, 

324,  22,330,  24. 

332,  22,339,  25 

). 

/*  3,  5.8*/ 

{ 

341,  23,348,  26, 

350,  23,356,  25, 

358,  23,365,  26 

>, 

/*  3,  5.9-/ 

{ 

367,  23,374,  26, 

376,  23,382,  25, 

384,  23,391,  26 

). 

/*  3  5.10*/ 

{ 

393,  23,400,  26, 

402,  23,409,  25, 

411,  23,418,  26 

) 

); 
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fl  RECT  e  grays[]  » 

i  < 

/«1 . 1«/ 

1 

9, 

9, 

/* 1 .2 */ 

*  3,  11, 

14, 

14. 

16.  11, 

29, 

13, 

■  16,  16, 

24, 

19, 

I  11,  20. 

19, 

22 

*  > ; 

|rECT  f_grays[]  - 

/*1 .2 */ 

■  3.11, 

14, 

14, 

I  16,  11, 

29. 

13, 

3,  16, 

14, 

19. 

16,  16, 

24, 

19, 

■  11.  20. 

19, 

22 

> ; 


#define  NUM_GRAYS  (sizeof(e_grays)/sizeof(e_grays[0] ) ) 

#define  NUM_SETS  ( sizeof ( e_no_of_boxes )/sizeof ( e_no_of_boxes [0] )) 

long  pascal  HandleBoxesWindow  (hWnd,  wMsg,  wParam,  IParom) 

HWND  hWnd ; 

WORD  wMsg,  wParam; 

LONG  IParam; 

{ 

LONG  retval; 

int  new_horz_max ,  new_vert_max ; 
int  fp,  num_lines,  num__cols; 
int  new  1; 


I 

1 


I 

I 

I 

I 

I 


switch  (wMsg) 

{ 

case  WM_SYSCOMMAND : 

switch  (wParam  &  0xfff0) 

{ 

case  SC_KEYMENU: 
if  (IParam  ■■  9) 

( 

return(DefWindowProc  (hWnd,  wMsg,  SC_NEXTWINDOW ,  IParam)) 

> 

jlse 

{ 

return(DefWindowProc  (hWnd,  wMsg,  wParam,  IParam)); 

) 

break ; 

case  SC_CLOSE: 

delete_one_child( hWnd , &new_i ) ; 
destroyed_f lag  -  TRUE; 
if  (figflag  >«  130) 
change_window_pos( hWnd , new_i ) ; 
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return(DefWindowProc  (hWnd,  wMsg,  w Param,  IParam )); 
default : 

return(DefWindowProc  (hWnd,  wMsg,  wParam,  IParam)); 
break ; 

) 

break ; 

case  WM_LBUTTONDOWN: 

If  (figflog  >»  140) 

{ 

set  box(hWnd,  IParam, f_no  of  boxes , f_coors , f_curvec . NUM  SETS); 

) 

else 

{ 

seL_box(hWnd,  IParam, e_no  of_boxes , e_coors , e_curvec , NUM  SETS); 

) 

if  ( ( current_f_coa  !*  get_current_coa( fcoa ,  f_curvec))  !! 
(current_e_coa  !«  get  current  coa(ecoa,  e_curvec))) 

{ 

change_current  coa(): 

) 

return ( 1 L ) ; 
break ; 

case  WM_PAINT : 

if  (figflag  >-  140) 

paintboxes  (hWnd,  ( LPPAlNTSTRUCT)lParam, 
f_curvec , f_no_of_boxes , f_coors , f_grays ) ; 
else 

paintboxes  (hWnd,  ( LPPAINTSTRUCT)lParam, 
e_curvec , e_no_of_boxes , e_coors , e_grays ) : 
return(IL); 
break ; 

case  WM_HSCROLL: 

side_scroll( hWnd ,  wParam,  LOWORD( IParam) ) ; 
return( 1 L ) ; 
break ; 

case  WM_VSCR0U; 

vert_scroll( hWnd ,  wParam,  LOWORD( IParam) ) ; 
return( 1 L ) ; 
break ; 

case  WM_SIZE; 

retval  «  DefWindowProc(hWnd ,  wMsg,  wParam,  IParam); 
switch  (wParam) 

( 

case  SIZEFUILSCREEN: 
case  SIZENORMAL: 

new_horz__max  »  GetWindowWord( hWnd ,  4); 
new_vert_max  ■  GetWindowWord( hWnd ,  2); 

new_horz_max  -«  LOWORD(lParom)/font_sizing.tmMaxCharWidth 

new_vert_max  -«  HIWORD( lParam)/font_sizing . tmHeight; 

if  ( new_horz_max  <  0)  new_horz_max  »  0; 

if  ( new_vert_max  <  0)  new_vert_mox  -  0; 

if  ( (GetScrollPos(hWnd ,  SB_HORZ)  >  new_horz_max ) 

' ! (GetScrollPos(hWnd,  SB  VERT)  >  new_vert_max ) ) 

{ 

SetScrollPos(hWnd ,  SB_HORZ,  new_horz_max ,  FALSE); 
SetScrollPos( hWnd ,  SB_VERT,  new_vert_max ,  FALSE); 


I 


\ 
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InvalidateRect(hWnd,  ( LPRECT  )NULL ,  FALSE); 

> 

SetScrollRange( hWnd ,  SB_HORZ,  0,  new_horz_max ,  TRUE) 
SetScrollRange( hWnd ,  SB_VERT,  0,  new_vert_max ,  TRUE) 
break ; 
default : 

break ; 


> 

return( retval ) ; 
break ; 

case  WM_DESTROY: 

If  (flgflag  <-  140) 

update_opposing_f orces( e_curvec , f_curvec ) ; 
else 

update_opposing_forces( f_curvec ,  e_curvec ) ; 
fp  «  GetWindowWord( hWnd ,  0); 
close( fp) ; 

if  ( destroyed_flag  ««  FALSE) 
delete_one_child(hWnd, &new_i ) ; 


destroyed_flag  «  FALSE; 

return(DefWindowProc  (hWnd,  wMsg,  wParam,  IParam)); 
case  WM_CREATE; 

SetWindowWord( hWnd ,  0,  new_fp); 
scanfile(new_fp,  &num_lines,  &num_cols); 
SetWindowWord(hWnd,  2,  num_lines): 
SetWindowWord(hWnd,  4,  num_cols); 

SetWindowWord( hWnd ,  6,  0); 

SetWindowLong( hWnd ,  8,  01); 

BringWindowToTop( hWnd ) ; 

return(DefWindowProc  (hWnd,  wMsg,  wParam,  IParam)); 
default : 

return(DefWindowProc  (hWnd,  wMsg,  wParam,  IParam)); 
break ; 

> 

) 


paintboxes  (hwnd,  IpArea , curvec , no_of_boxes , coors , grays ) 
HWND  hwnd; 

LPPAINTSTRUCT  IpArea; 
unsigned  char  curvec[]; 
int  no_of_boxes [] ; 

RECT  coors[][6],  grays[]; 


I 

I 

I 


char  buffer [MAX LENGTH  +  5]; 
char  longbuffer [MAX LENGTH  +  5]; 

int  i,  J,  start_col,  num_cols,  base_col,  top_edge; 
int  start_line,  num_lines,  base_line,  last_base_line; 
int  fp,  n; 

long  basepos,  lastbasepos; 
char  s[80] ; 

RECT  rect; 

HBRUSH  gray_brush,  color_brush; 


\ 


•A. 
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i 

I 

I 

I 


base_col  =  GetScrollPos( hwnd ,  SB_HORZ); 
base_line  •  GetScrollPos( hwnd ,  SB_VERT): 

BeginPaint( hwnd ,  IpArea): 

GetClientRect( hwnd ,  ( LPRECT )&rect ) ; 

FillRect( IpArea- >hdc,  ( LPRECT )&rect ,  GetStockObject(WHITE_BRUSH ) ) ; 
gray_brush  »  CreateSolidBrush( 0xc0c0c0 ) ; 
for  (1  -  0;  i  <  NUM  GRAYS:  i++) 

{ 

rect .left  ■  (grays [i] . left-base_col )*f ont_sizing . tmMaxChorWidth- 1 ; 
rect.top  ■  (grays [i] . top-base_line )*font_sizing . tmHeight-4 ; 
rect . right  ■  (grays [i] . right-base_col )*f ont_sizing . tmMaxChorWidth -6 ; 
rect . bottom  »  ( grays [i] . bottom-base_line )*f ont_sizing , tmHeight-6 ; 
FillRect( lpArea->hdc ,  ( LPRECT  )&rect ,  gray_brush); 

) 

DeleteOb ject( gray_brush ) ; 

color_brush  «  CreateSolldBrush( f igflag  <  140  ?  0x0000ffL  :  0xffff00L); 
for  (i  .  0;  i<  NUM_SETS;  i++) 

( 

for(j  *  0;  j  <  no_of_boxes[i] :  J++) 

( 

if  (curvec[i]  &  (0x01  <<  j)) 

( 

invert_box( i , J , IpArea, base  col,  base_line , coors , color_brush ) ; 

} 

} 

) 

DeleteObject( color_brush ) ; 

SelectObject(  lpArea->hdc',  GetStockObject(OEM_FIXED_FONT) ) ; 

start_col  «  lpArea->rcPaint. left/font_sizing . tmMaxChorWidth ; 

num_cols  «  lpArea->rcPaint . right/font_sizing . tmMaxCharWidth-start_col+1 ; 

top_edge  «  ( IpArea- > rcPaint . top/font_sizing. tmHeight )*font_sizing . tmHeight ; 

start_line  «  IpArea- >rcPaint . top/font_sizing . tmHeight ; 

num_lines  -  IpArea- > rcPaint . bottom/ f on t_sizing . tmHeight- start_line+l ; 

fp  »  GetWindowWord( hwnd ,  0); 

set_new_base( hwnd ,  fp,  base_line,  fibasepos); 

basepos  »  lseek(fp,  01,  1); 

SetWindowLong( hwnd ,  8,  basepos); 

SetWindowWord( hwnd ,  6,  base_line); 
for  (i  »  0;  i  <  start_line;  i++) 

( 

getline( buffer ,  MAXLENGTH,  fp); 

)  " 

SetBkMode( IpArea- >hdc ,  TRANSPARENT ) ; 
for  (i  »  0;  i  <  num_lines;  i++) 

( 

getline(buffer,  MAXLENGTH,  fp); 
initvec( longbuf fer ,  MAXLENGTH); 
transbuf fer( buf fer ,  longbuffer); 

TextOut( IpArea- >hdc ,  start_col*font_sizing . tmMaxChorWidth , 

(i  +  start_line)*  font_sizing. tmHeight, 

( LPSTR)( longbuffer  + 

base  col+start_col ) ,  num_cols); 

) 

SetBkMode( IpArea- >hdc ,  OPAQUE); 

EndPaint( hwnd ,  IpArea); 


\ 
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Lsplay_oav( n ) 
Lnt  n  ; 


no_of_open_f iles++ ; 

new_fp  -  open("oav",  0_BINARY ) ; 

file_handle[n]  -  CreateWindow( { LPSTR ) "BOXES" , 

( figflag  <  140  ?  (LPSTR)"RED  KNOWLEDGE  BASE”  :  (LPSTR)"BLUE  KNOWLEDGE  BAS 

WS_CHILD ! WS_SYSMENU ! WS_CLIPSIBLINGS ! WS_CAPTION ! WS_VISIBLE , 

100,130,  1,  1,  main_window,  NULL, 
intacval  instance ,( LPSTR )NULL ) ; 


invert_box( i , j , IpArea, base_col , base_line ,  coors,  color_brush) 

Iint  i  ,  J  ; 

LPPAINTSTRUCT  IpArea; 


I LPPAINTSTRUCT  IpArea; 
int  base_col , base_line ; 
iRECT  coors[][6]; 

I HBRUSH  color  brush; 


IRECT  screen; 
static  int  fp; 

screen. left  ■  (( coors [i] [j ]). left  -  base_col) 

I*  font_sizing . tmMaxCharWidth-1 ; 
screen. top  »  (( coors [i] [j ]). top  -  base_line) 

*  font_sizing.tmHeight-4; 
screen. right  -  (( coors [i] [j ]). right  -  base_col) 

|  *  font_sizing . tmMaxChorWidth-6 ; 

screen . bottom  «  ( (coors[i] [j ]). bottom  -  base_line) 

*  font_sizing . tmHeight-6 ; 

FillRect( lpArea->hdc,  ( LPRECT )&screen ,  color_brush ) ; 


ide_scroll  (hwnd,  jump_type,  new_pos) 

HWND  hwnd; 

WORD  jump_type; 
int  new_pos; 


[  int  old_pos,  page_width,  min_pos,  max_pos ; 
1  RECT  window  rect; 


1GetScrollRange(hwnd,  S8_H0RZ,  ( LPINT )&min_pos ,  ( LPINT )&max_pos ) ; 
GetClientRect(hwnd,  ( LPRECT )4window_rect ) ; 

page_width  -  window_rect . right/font_sizing . tmMaxCharWidth- 
window_rect . left/ f on t_si zing . tmMaxCharWidth; 

|old_pos  «  GetScrollPos(hwnd,  SB_HORZ); 

switch  ( Jump_type) 

/ 
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case  SB_LINEUP: 

if  (old_pos  >  min_pos) 

{ 

SetScrollPos(hwnd,  SB_H0R2,  old_pos-1 ,  TRUE); 
ScrollWindow( hwnd ,  font_sizing . tmMaxCharWidth ,  0 
(LPRECT)NULL); 

) 

break; 

case  SB_LINEDOWN: 

if  (old  pos  <  max_pos) 

( 

SetScrol 1 Pos ( hwnd ,  SB_H0R2,  0ld_pos+1,  TRUE); 
ScrollWindow( hwnd ,  -font_sizing . tmMaxCharWidth , 
(LPRECT)NULL); 

) 

break ; 

case  SB_PAGEUP: 

if  (old_pos  >  min_pos) 

( 

if  ((old_pos  -«  page_width)  <  min_pos) 

( 

old_pos  «  min_pos; 

) 

SetScrol lPos( hwnd ,  SBJH0R2.  old_pos,  TRUE); 
InvalidateRect( hwnd ,  ( LPRECT )NULL ,  FALSE); 

> 

break ; 

case  SB_PAGEDOWN : 

if  (old_pos  <  max  pos) 

( 

if  ((old_pos  +»  page  width)  >  max  pos) 

( 

old_pos  -  max_pos; 

) 

SetScrollPos( hwnd ,  SB_H0R2,  old_pos,  TRUE); 
InvalidateRect( hwnd ,  ( LPRECT )NULL ,  FALSE); 

) 

break ; 

case  SB_THUMBPOSITION: 

SetScrollPos( hwnd ,  SB_H0R2,  new_pos,  TRUE); 
InvalidateRect(hwnd,  ( LPRECT )NULL ,  FALSE); 
break ; 

case  SB_THUMBTRACK : 
break ; 

case  SB_TOP: 

SetScrollPos( hwnd ,  SB_H0R2,  min_pos,  TRUE); 
InvalidateRect( hwnd ,  ( LPRECT  )NULL ,  FALSE); 
break ; 

case  SB_BOTTOM: 

SetScrollPos( hwnd ,  SB_H0R2,  max_pos,  TRUE); 
InvalidateRect( hwnd ,  ( LPRECT  )NULL ,  FALSE); 
break ; 

case  SB_ENDSCROLL : 
break ; 


V 


( LPRECT )NULL  , 


( LPRECT  )NULL , 
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get_current_coa(coa,  curve c) 
unsigned  char  curvec[],  coa[][3]; 

{ 

int  i,  j  [3]  ,  k; 

j[0]  -  0;  j[l]  -  0;  j [2]  -  0; 
for  (i  -  0;  i  <  NUM  SETS;  !■*■+) 

{ 

for(k«  0 ; k  <  3;  k++) 

{ 

j [k]  +»  count_bits( (unsignea  char){coa[i] [k]  &  curvec[i])) 

> 

> 

return  f ind_max( j ) ; 

) 

open_file  (vec) 
char  *vec; 

{ 

FILE  *fp; 
int  i , n ; 

char  f ilenome[l5] ; 

for  (i  »  0;  i  <  15;  i++) 

{ 

if  (vec[i]  ««  ’  ' )  break; 

filename[i]  »  vec[i]; 

} 

filename[i]  «  NULL; 

fp  -  fopen( filename,  "r"); 

for  (i  -  0;  i  <  NUM_SETS;  i++) 

( 

fscanf(fp,  ”^x",&n); 
e_curvec[i]  ■  n; 

} 

for  (i  «  0;  i  <  NUM  SETS;  i++) 

( 

fscanf(fp,  "?tx",4n); 
f_curvec[i]  «  n; 

) 

fclose( f p ) ; 

strcpy ( current_session ,  filename ) ; 
strcpy(s,  "Session  has  been  opened  as  requested."); 
Set01gItemText(current_figure,  DLG_CLICK,  (LPSTR)s); 
current_f_coa  »  get_current_coa( f coa ,  f_curvec); 
current_e  coa  «  get  current  coa^ecoa,  e  curvec); 

> 

init  session( ) 

{ 

int  i ; 


get_dir( f ilenames . Si  ) ; 
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I 


I 


if  ( i  >*  10 ) 

{ 

Sen dMe S sage ( main_window, WM_COMMAND , MC_PREVIOUS_SESSION , ( LONG ) ( LPSTR )NULL ) ; 
strcpy(s,  "A  new  session  can  be  opened  only  after  an  old  one  is  deleted.") 
Set01gItemText(current_f igure ,  DLG_CLICK,  (LPSTR)s); 
return ; 

} 

for ( i  »  0;  i  <  NUM  SETS:  i++) 


{ 


I 


e_curvec[i]  »  e_defvec[i]; 
f_curvec[i]  *  f_defvec[i]: 


> 


I 


strcpy( current_session ,  next_session ) ; 

strcpy(s,  "A  new  session  has  been  opened  as  requested.”): 
SetDlgItemText( current_f igure ,  DLG_CLICK,  (LPSTR)s); 


) 


save  cur  session( ) 


I 

I 

I 


int  i; 

FILE  *fp; 

fp  »  fopen(current__session,  ”w"); 
tor  (i  «  0;  i  <  NUM  SETS;  i++) 

{ 

fprintf(fp,  ”\n£x  " , e_curvec[i] ) ; 

> 

for  (i  •  0;  1  <  NUM_SETS;  i++) 

{ 

fprintf(fp,  " \n£x  " , f_curvecEi] ) : 


) 

fclose( fp ) ; 

) 


I 

I 

I 

I 
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PAGE  1  February 
include 


16,  1987 
<stdio.h> 


^define  FALSE  0 

I#define  TRUE  -1 
^define  OKAY  0 
^define  ERROR  -1 

1#def ine  VDINIT  0 
^define  VDPLAY  1 
^define  VDSTOP  2 

1#def ine  VDSTAT  3 
^define  VDDISP  4 
^define  VDFRAME  5 

|#def  ine  FWD  1 

^define  8WD  (-1) 

#def ine  TIMEOUT  (-1 ) 

J/*EJECT»/ 


09:15  AM 


PIONEER  DISC  COMMANDS 


*/ 

*/ 

*/ 


#def ine  BIN_IN 

0x3D 

■^define  BIN_OUT 

0xE7 

l^define  DISPLAY 

0xF1 

^define  FAST_SPD 

0xEC 

•^define  FRAME 

0xD3 

[^define  MULTI_FWO 

0xF2 

* #def ine  PLAY 

0xFD 

^define  SEARCH 

0xF7 

^define  SLOW_SPD 

0xED 

^define  STEP_FWD 

0xF6 

#def ine  STEP_BWD 

0xFE 

^define  STATUS 

0xD4 

#define  STOP 

0xFB 

#define  VID_ON 

0x1  B 

^define  VID_OFF 

0x1C 

^define  STAT_DELAY 

5 

/* 

About  half 

#define  COM 

3 

/* 

1  -  COM1 : , 

#if  (COM  •«  1  ) 

^define  PORT 

0x3F8 

/* 

COM1 :  */ 

tfendif 

*if  (COM  •»  2) 

^define  PORT 

0x2F8 

/* 

COM2:  */ 

, ^endif 

|#if  (COM  -•  3) 

'^define  PORT 

0x2E8 

/* 

COM3:  «/ 

#endi f 

■^define  DATA_PORT 

PORT 

J^define  LOW_BAUD 

PORT 

^define  HIGH  BAUD 

( PORT  + 1 ) 

I 

I 
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I  ^define  INT_CNTRL 
^define  LINE_CNTRL 
^define  MOOEM_CNTRL 

I#def ine  LINE_STATUS 
^define  MODEM_STATUS 

/•EJECT*/ 


(PORT+1 ) 
( PORT+3 ) 
( PORT+4 ) 
( PORT+5 ) 
(PORT+6) 


open_vdisc( ) 

. . * 

/*  Initial 

{ 

int 


Initialize  and  start  videodisc  player 


done,  stat,  tolerance; 


Outp( INT_CNTRL , 0x00 ) ; 
outp(MODEM_CNTRL, 0x0f ); 
outp( LINE_CNTRL , 0x80 ) ; 
outp ( LOW_BAUD , 0x30 ) ; 
outp( HIGH_BAUD , 0x00 ) ; 

Outp( LINE_CNTRL , 0x03 ) ; 
send(BIN_IN); 
send(BIN_OUT); 
done  ■  FALSE; 
tolerance  «  1 ; 
while  ( ! done ) 

{ 

stat  «  getstat(); 
switch  (stat) 

( 

case  0x64:  send(STOP); 

break ; 

case  TIMEOUT: 

if  (tolerance — ) 


/*  Playing  */ 


send(BIN_IN); 

send(BIN_OUT); 

break; 


case  0x65; 


case  0x78; 


default : 


) 

done  «  TRUE; 
break ; 
send(PLAY); 
break ; 

send(BIN_IN); 

send(BIN~OUT); 

break; 


/«  Still  frame  */ 
/»  Parked  */ 


wait( STAT  DELAY); 


seek_vdisc(1L); 
send_num( 0L ) ; 
sendlDISPLAY); 
getstat( ) ; 
send(VID_ON); 


/*  Turn  on  video  */ 


LDV6000.C 
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j/*EJECT*/ 

seek_vdisc( fnum) 


/*•**■ . * . - . . . . 

/*  Searches  for  the  specified  frame  number  «/ 

. . . . . - . - . . 

long  fnum; 

{ 

unsigned  getframe(); 


static  long  old_fnum  «  -2: 
int  status; 

1  if  ( fnum-old_fnum  »■  1 )  ( 

send(STEP_FWD); 

else  if  ( fnum-old_fnum  ■«  -1)  { 
send( STEP_BWD ) ; 

) 

I  else  { 

send_num( f num ) ; 
send( SEARCH); 

I) 

while  (((status  -  getstat())  !»  0x65)  &&  (status  !«  TIMEOUT)) 
wait( STAT_OELAY ) ; 
old  fnum  »  fnum; 

I 

/•EJECT*/ 

I  send_num( frame) 


. . . . - . . . . 

/*  Send  the  frame  number  to  the  player.  */ 

/** . . . . . 


long  frame; 

( 

static  char  uel[]  «  (  0x3F,  0x0F,  0x8F,  0x4F,  0x2F, 

0xAF ,  0x6F ,  0x1 F ,  0x9F,  0x5F  ); 

char  out[5]; 

int  d,  i; 


i  -  -1; 
do 

{  /*  Translate  frame  number  */ 

d  «  frame  %  10; 
out[++i]  •  uei [d] ; 

) 

while  ((frame  /•  10)  >  0); 


/•EJECT*/ 

I 


for  (;  i  >-  0;  i — ) 
send(out[i] ) ; 


/*  Reverse  it  */ 


getstat(  ) 

. . 


/ 


* 
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Get  the  status  of  the  LD-V6000  */ 

. . . — . - . . 

int  stat; 

send( STATUS); 
stat  »  recv(); 
return{ stat ) ; 


send( byte) 

. . . #/ 

/*  Send  a  byte  to  the  videodisc  player.  «/ 

/*- . ----- . * . - . -— . . 

unsigned  char  byte; 


{ 

while  ( ( inp( LINE_STATUS )  &  0x20)  ««  0) 
{ 

) 

outp(DATA  PORT, byte); 

) 


static  recv() 

I  /  . . . . — — */ 

|  /*  Receive  one  byte  from  the  player.  Return  */ 

/*  TIMEOUT  if  a  Rx  timeout  occurs.  •/ 

!  ; . . . . 


■  int  temp; 

long  timer; 

|  temp  -  TIMEOUT; 

timer  »  0x18000; 
while  (timer — ) 

I  < 

i  if  (lnp(i.INE_STATUS)  &  1) 

( 

I  temp  «  inp(DATA_PORT); 

break ; 

> 

Ireturn(temp); 

) 

I 

I 

I 

I 

I 


I 

I 

/-EJECT*/ 


\ 


w 


I 

t 

( 

t 

f 

* 

I 

>■ 


\ 
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■^include  "lvm.h" 
lvm(  ) 


LVM.C 


■  int  x,  y; 

static  int  firstpass  «  1 ; 

if  (inpw(0x3e0)  «»  -1) 

< 

return ; 

) 

hi jack_mouse( ) ; 
if  (firstpass) 

( 

firstpass  «  0; 

m_setcurs( screen_w/2 ,  screen_h/2 ) ; 

setcurs( 0 ,  1,  screen_x+( screen_w  >>  1),  screen_y+(screen_h  >>  1)); 
curson( ) ; 

map_point(0,  markx,  marky,  0); 
redo  screen(); 

> 

gw_t rocker ( ( int( * )(  ))0); 
while  (m  posbut(Ax,  Ay)) 

( 

) 

return_mouse(  ) ; 

} 

I 

1 
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f  include  "parallax . h" 
include  "lvm.h" 

1#define  PI  3.141592653589793 
^define  RADIAN  PI/180 
^include  "math.h" 

j^define  sign(  n  )  ((n)  <  0  ?  -1  :  1) 
clip_vectw( int,  int,  long,  long,  long,  long); 
jiraw_icon( icon_index ) 

long  icon_index;  /*  index  of  the  icon  within  the  data  base  */ 


/*  The  icon  class  is  a  bit  mask  where  each  bit  corresponds  to  a  particular 
class.  Only  one  bit,  of  course,  will  be  turned  on  for  every  icon. 

For  example,  an  enemy  radar  station  is  1,  a  SAM  is  2,  a  command  post  is 
4,  etc.  For  each  class  there  is  a  corresponding  icon  representation 
(box,  triangle,  etc.)  which  is  loaded  into  a  table  (as  it  were)  of 
images.  The  bit  position  turned  on  in  the  class  Indexes  into  this 
position.  */ 

register  int  class  «  icons[icon_index] . class; 
register  int  classbit  -  1  <<  class; 

long  x,  y;  /*  pixel  location  at  which  to  display  */ 

unsigned  char  color;  /*  color  */ 

/*  If  this  type  of  icon  isn’t  being  displayed,  don’t  bother  */ 

if  (! (classbit  4  show_mask))  return; 

if  (class  >»  REDJJNIT) 

color  -  RED;  /*  Enemy  icons  are  red  (icon  templates  are  white)  */ 
else 

color  »  BLUE;  /*  Friendly  icons  are  blue  */ 


I 

I 


/« 

Calculate  the  pixel  position  by  converting  the  lat,  long  and  centering 
the  icon  about  the  resultant  x/y. 

•/ 

latlon_to_pix( icons[icon_index] . lat,  icons[icon_index] . Ion ,  4x,  &y); 

*>  j  x  -»  icontab[class  &  7], width/2; 

I  y  -■  icontab[class  &  7], height/2; 

a  This  routine  draws  the  font  corresponding  to  this  icon; 

I  */ 

gw_lcon_image(*icontab[class  4  7],  color,  (int)x,  (int)y); 

| 

*arrow( color ,  xl,  yl,  x2,  y 2,  arrowhead) 

I 

I 
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Ijnsigned  char  color; 

■long  xl ,  yl ,  x2,  y2; 

int  arrowhead;  /*  width  of  arrow  head  in  pixels  "/ 


int  triangle[3] [2] ; 

double  angle  «  atan2( ( double )( y2-y1 ) ,  ( double )(x2-x1 )) ; 
mask( 0x3f ) ; 

clip_vectw( 3 ,  color,  xl ,  yl ,  x2,  y2); 

if  ((x2  >  arrowhead)  44  (x2  <  2048-arrowhead )  44  (y2  >  arrowhead)  44 
(y2  <  2048-arrowhead ) ) 

{ 

triangle[0] [0]  «  x2; 
triangle[0] [l]  *  y2; 

triangle[l] [0]  *  x2-cos(angle-PI/4)»arrowhead; 
triangle[l ] [1 ]  *  y2-sin(angle-PI/4 )*arrowhead; 
triangle[2] [0]  «  x2-cos(angle+PI/4)*arrowhead; 
triangle[2] [1 ]  ■  y2-sin(angle+PI/4)»arrowhead; 
poly(color,  3,  triangle); 

) 

mask( 0xff ) ; 


■'define  METERJMAUT  18500L  /*  18.5  km.  per  10  nautical  miles  */ 

clip_ooi( ) 

I  long  xl ,  yl ,  x2,  y2; 

latlon_to_pix(aoi_lat1  ,  aoi_lon1 ,  Axl,  &yl); 
latlon_to_pix( aoi_lat2 ,  aoi_lon2,  4x2,  4y2); 
clip( ( int )x1 ,  (int)yl,  (int)x2,  (int)y2); 


inclip_aoi( ) 
clipd( ) ; 


^include  "mouse. h" 


)et_aoi(x,  y) 


int  x,  y; 


*  int  b,  xl ,  yl ,  oldx,  oldy; 


Wait  till  the  user  releases  the  button  that  invoked  the  function 


info( "Release  the  button,  please"); 
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^AGE  3 

|  while  (m_posbut(&oldx,  Soldy)); 
m_setcurs(x,  y); 


I  Set  up  a  circular  cursor  and  set  the  limits  of  the  cursor  to  be 
the  size  of  the  available  map  frame. 

*/ 

cursoff();  /»  set  up  circular  cursor  */ 

setcurs( CRCUR ,  1,  screen_x+x,  screen  y+y); 
curson( ) ; 

I  m_hminmax(map->curx,  map->curx+map->width-1 ) ; 
m_vminmax(map->cury ,  map->cury+map->height-1 ) ; 

j  info(”Move  to  lower  left  corner  of  box  and  click  mouse  button."); 

while  ( !m_posbut(&x.  &y))  {  /*  move  ordinary  cursor  until  he  presses  */ 

!  if  (oldx  !■  x  ! !  oldy  !«  y)  { 
f  movcurs(screen_x+x,  screen_y+y); 

oldx  «  x; 

I  Oldy  ■  y; 

>’ 

while  (m_posbut(&x ,  &y))  {  /*  move  it  until  he  releases.  */ 

I  if  (oldx  !»  x  ! !  oldy  !-  y)  { 

movcurs( screen_x+x ,  screen_y+y); 
oldx  «  x; 
l  oldy  »  y; 

) 

} 


j  info("Move  to  upper  right  hand  corner  and  click  mouse  button."); 
cursof f ( ) ; 

Irubberband(BOXO,  RED,  x,  y,  &x1 ,  &y1); 

setcurs( XHCUR ,  1,  screen_x+x1 ,  screen_y+y1 ) ;  /*  Reset  the  cursor 

Curson(  )  ; 

info("New  area  of  interest  has  been  set.")-, 

Iaoi_x1  *  min(x,  x.1  ) ; 

aoi_y1  »  min(y,  yl); 

aoi_x2  »  max(x,  xl); 

Iaoi_y2  »  max(y,  yl); 

pix_to_latlon( ( long )aoi_x1  ,  ( long )aoi_y 1 ,  &aoi_lat1 ,  &aoi_lon1); 
pix_to_latlon( ( long )aoi_x2 ,  ( long )aoi_y2 ,  &aoi_lat2,  &aoi_lon2); 
m_hminmax(8,  screen_w-8); 

|  m_vminmax(8,  screen_h-8); 


Jiraw_ooi( ) 


I 

I 

I 


mask ( 0x3f ) ; 

boxo(RED,  aoi_x1 .  aoi_y1 , 
mask( 0xf f ) ; 


aoi_x2,  aoi_y2); 


*/ 


v 
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show_terrain  (  ) 


I 

I 

I 

t 

j 

i 

I 

1 

I 


static  struct 

{ 

char  color; 
int  num_points; 
struct  POINT 
{ 

long  lot,  Ion; 
}  point[14]; 

}  terrain[]  ■ 

{ 

{ 


0x9e, 

10, 

545020, 

164555 

541703, 

133458 

540336, 

103740 

544702, 

100456 

>. 

{ 

0x44, 

14, 

543345, 

184029 

511443, 

114552 

534318, 

71305 

542765, 

105929 

540517, 

141026 

>, 

{ 

0xa2 , 

8, 

505304, 

181556, 

520104, 

102645, 

491140, 

155405, 

), 

{ 

0xd4 , 

6, 

475540, 

185935, 

463348, 

74305, 

). 

{ 

0x00 , 

4, 

522541 , 

112646, 

520953, 

112646 

), 

{ 

0x00 , 

6, 

523241 , 

130214, 

). 

525149, 

133458, 

{ 

0x00 , 

4, 

535510, 

92117, 

533123, 

94306 

), 

{ 

0X00  , 

7, 

474953, 

114024, 

482423, 

113213, 

475735, 

115119 

}, 

{ 


543345,  161027,  540517,  141310, 
541843,  131025,  544343,  133428, 
543025,  110213,  543705,  101023, 


505304,  181556,  510920,  162122, 
520104,  102645,  512154,  70210, 
540014,  91833,  543525,  101550, 
540155,  104307,  543205,  124836, 
544702,  165122 


510920,  162122,  511443,  114552, 
522154,  70210,  475930,  71548, 
475540,  185935 


491140,  155405,  475930,  71548, 

464340,  131025,  460004,  184557 


523425,  115646,  522026,  115930, 


524821,  125931,  525517,-131309, 
523755,  134026,  522211,  131553 


535832,  94550,  534318,  100456, 


475930,  112718,  481256,  111835, 
482229,  115119,  481101,  120214, 


0x00,  4,  502546,  140459,  150916,  134553,  495430,  141026, 


LVMDRAW. C 
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501256,  134026 

>. 

{ 

,  0x00,  4,  491717,  90739,  485830,  93212,  484517,  91022, 

490023,  84549 

> 

) : 

#define  NUM_TERRAINS  ((sizeof  terrain )/( sizeof  terrain[0])) 

Struct  POINT  "point; 
struct 
{ 

int  x,  y; 

I  }  coords [ 1 4] ; 
int  i,  j ; 

static  char  first_pass  ■  1; 
long  x,  y; 
char  fits-, 


I 


I 

I 

I 

I 

I 


if  (first_pass) 

{ 

first_pass  »  0; 

for  (i  -  0;  i  <  NUM_TERRAINS;  i++) 

{ 

for  (J  »  0;  j  <  terrainfi] . num  points;  J++) 

{ 

terrain[i] . point[j] . lat  «  merge_deg( terrain [i] . point [j ]. lat ) ; 
terrainfi] . polnt[j] . Ion  «  merge_deg( terraln[i] . point [j ]. Ion  )  ; 

} 

> 

) 

if  ( ! ( show_mask  &  (1  <<  TERRAIN))) 

{ 

return ; 

) 

for  (i  -  0;  i  <  NUM_TERRAINS;  i++) 

{ 

fits  -  1; 

point  »  terrain[l] . point ; 

for  (j  »  0;  j  <  terraln[i] ,num_points:  j++) 

{ 

latlon_to_pix(point->lat,  point->lon,  &x,  «y); 

if  ((x  <  0)  ! I  (x  >»  screen  w)  ! I  (y  <  0)  ! !  (y  >»  screen_h)) 

{ 

fits  «  0; 
break ; 

) 

coords [j] .x  «  x; 
coords [ j ] . y  -  y ; 
point++; 

) 

if  (fits) 

( 

gw_shadow( terrain [i] .color,  760,  576,  767,  583); 
stip8( ) ; 
mask(0xc0 ) ; 

polys(760,  576,  terrain[i] . num_points ,  coords); 
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mask(  f); 


how_coa  ( ) 


extern  int  current  e  coa,  current  f  coo; 


static  struct 

/ 

V 

long 

lat0,  lon0,  latl 

,  loni ; 

} 

coas[6][3]  » 

{ 

{ 

521430, 

100000, 

521500, 

110000, 

521500, 

1 00000 , 

521500, 

110000, 

>. 

521530, 

100000, 

521500, 

110000 

( 

521000, 

100000, 

523000, 

110000, 

521500, 

95000, 

521500, 

111000, 

), 

522000, 

100000, 

520000, 

110000 

{ 

521000, 

95000, 

521000, 

113000, 

521000, 

95000, 

521000, 

113000, 

). 

522000, 

95000, 

522500, 

113000 

{ 

515930, 

113000,' 

520930, 

103000, 

520000, 

113000, 

521000, 

103000, 

} 

520030, 

113000, 

521030, 

103000 

{ 

524000, 

114000, 

523000, 

105000, 

520000, 

112500, 

521000, 

110000, 

) 

515000, 

110000, 

520000. 

103000 

{ 

523000, 

113000, 

523000. 

110000, 

520500, 

113000, 

520500, 

110000, 

514000, 

112000, 

520500, 

101000 

) 


): 

static 


int 


char 

J: 


f lrst_pass 


if  (first_pass) 


I 


{ 


first_pass 
for  (i  ■  0; 


i  <  6;  i++) 


{ 


I 


for 

{ 


(j  «  0;  J  < 


3;  J++) 

coas[i] [j] . Iat0  -  merge_deg( coas[i]  [ j ]  .  Iat0 ) 


I 


I 


V 
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coas[i] [j] . Ion0  »  merge_deg(coas[i] [j] . Ion0) 
coas[i] [j] , loti  «  merge_deg(caas[i] [j] . latl ) 
c°as[i][j] . lonl  *  merge_deg( coas [i] [ j ] , lonl ) 

> 

) 

if  (show_mask  4  (1  <<  ( BLUE_UNIT+COA ) ) ) 
for  (i  -  0;  i  <  3.  i++) 

draw_coa(4coas [current_f_coa-1 ] [i] .  BLUE ) ; 

) 

if  (show_mask  4  (1  <<  (RED  UNIT+COA))) 

{ 

for  (i  .  0;  i  <  3;  i++) 

{ 

draw_coa(4coas[current_e_coa-1+3] [i] ,  RED) ; 

) 


|draw_coa  (coa, 
struct 


I 


{ 

long  lat0 
)  »coa; 


int  color; 

■( 


color) 


lon0 , 


latl , 


long  x0 ,  y0,  x 1 ,  yl ; 


lonl  ; 


latlon_to_plx(coa->lat0,  coa->lon0,  4x0,  4y0); 
latlon_to_plx(coa->lat1 ,  coa->lonl,  4x1,  4y1); 
arrow( color ,  x0 ,  y0 ,  x 1 ,  y 1 ,  6  ) ; 


info(fmt,  pi,  p2 ,  p3,  p4,  p5,  p6,  p7,  p8,  p9,  p10) 

:har  *fmt; 

long  pi,  p2 ,  p3 ,  p4,  p5 ,  p6,  p7,  p8,  p9,  p10; 

l< 

!  char  str[80]; 

.  sprintf ( Str ,  fmt,  pi,  p2,  p3,  p4.  P5,  p6,  p7,  p8,  p9,  p10) 
I  9w_clear( infoline->w) ; 

gw_prints( infoline->w,  str); 
cursoff ( ) ; 

1gw_ref resh( ) ; 
curson( ) ; 

) 

^select_l_pt( x0 ,  y0 ,  xl,  yl  ) 

I 

I 


T 


▼ 


l 


< 

K 
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nt  x0,  y0,  *x1  ,  »y  1  ; 

rubberband(VECT,  RED,  x0  y0,  xl,  yl); 


I  I 
!  i 

t 

I 

I 

I 


J-,elect_2_pts{x0 ,  y0,  xl  ,  yl) 
int  *x0,  *y0,  *x1,  *y1; 


int  oldx,  oldy; 

info( "Select  2  points  on  the  map  by  clicking  the  mouse  button. ”); 

m_hminmax(mop->curx,  map->curx+map->width-1 ); 
m_vminmax(map->cury ,  map->cury+map->height-1 ) ; 

while  (m_posbut( x0 ,  yO)'- 


Set  up  a  circular  cursor  and  set  the  limits  of  the  cursor  to  be 
the  size  of  the  available  map  frame. 


/ 

cursoff();  /•  set  up  circular  cursor  */ 

setcurs(CRCUR,  1,  screen_x  +  *x0,  screen^y  +  *y0); 

Curson( ) ; 

while  ( !m_posbut(x0,  y0})  {  /*  move  ordinary  cursor  until  he  presses  */ 

if  (oldx  !«  *x0  ! ■  oldy  !«  *y0)  { 

movcurs( screen_x  +  *x0,  screen_y  +  *y0); 
oldx  *  »x0; 
oldy  *  *y0; 

) 

) 

while  (m_posbut(x0 ,  y0))  {  /*  move  until  he  releases  */ 

if  (oldx  !*  »x0  !!  oldy  !«  *y0 )  { 

movcurs( screen_x  +  *x0,  screen_y  +  *y0); 
oldx  *  *x0; 
oldy  «  *y0; 


> 


) 


’  cursoff ( ) ; 

f  rubberband( VECT ,  RED,  *x0,  *y0,  xl,  yl): 
i  setcurs(XHCUR,  1,  screen_x+*x1 ,  screen_y+*y1 ) ; 
curson( ) ; 

1m_hminmax(8,  screen_w-8); 
m_vminmax(8,  screen  h-8); 

} 


/*  Reset  the  cursor  */ 


I 


rubberband( shape ,  color,  anchorx,  anchory,  x,  y) 


I 

I 
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I 


■Lnt 

ant 

int 

|mt 

{ 


shape; 
color; 
anchorx , 
*x,  *y; 


anchory ; 


int  oldx,  oldy; 

while  (m_posbut(Soldx,  Solely)); 

info( "Rubberband  the  line;  click  when  you  are  done."); 
m_hmlnmax(map->curx,  map->curx+map->width-1 ); 
m_vminmax(map->cury ,  map->cury+map->height-1 ) ; 
m_setcurs(anchorx,  anchory); 
while  ( !m_posbut(x,  y))  { 

oldy)  { 


*y 


if  ( *x  !«  oldx 
gw_ref resh(  ) ; 
mask( 0x3f ) ; 
graphio(shape,  color, 
screen_y+*y ) ; 
mask( 0xff ) ; 
oldx  »  *x; 
oldy  «  *y; 

) 

) 

gw_ref resh( ) ; 
m_hminmax(8,  screen_w-8); 
m_vminmax(8,  screen_h-8); 


arc(color,  cx,  cy,  radius,  sa,  ea) 

int  color; 
long  cx ,  cy; 
int  rodius; 
louble  sa,  ea; 


screen_x+anchorx ,  screen_y+onchory ,  screen_ 


{ 


double  angle,  step; 
long  x0 ,  y0 ,  xl ,  y 1 ; 

x0  »  cx+cos(sa)»radlus+0 . 5; 
y0  ■  cy+sin( sa )“radius+0 . 5 ; 
step  «  (ea-sa)/l0; 

for  (ongle  «  sa+step;  angle  <  ea;  angle  +■  step) 

( 

xl  •  cx+cos(angle)*radius+0.5; 
yl  »  cy+sin( angle )*rodius+0 . 5 ; 
cllp_vectw( 1 ,  color,  x0,  y0,  xl ,  yl); 
x0  «  xl ; 
y0  »  yl; 

) 

xl  *  cx+cos(ea)"radius+0.': , 
yl  ■  cy+sin(ea)*radius+0.  ■ 
clip_vectw{ 1 ,  eoler,  x0,  y0,  x1  yl); 


I 


I 


\ 
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WINDOW  “field; 

I, 


I 

I 

I 

I 

I 

I 

1 

I 


gw_fieldhue( field,  field->menu->w->bgcol ,  WHITE); 

> 


super_low( field ) 
WINDOW  “field; 


gw_fieldhue( field,  WHITE,  BLACK); 

) 


de_super  high( ) 

{ 

WINDOW  “field; 

for  (field  ■  gw_field( friendly ,  1);  field;  field  •  field->next) 
gw  fieldhue(field,  BLACK,  WHITE); 

) 

for  (field  «  gw_f ield(enemy ,  1);  field;  field  ■  f ield->next )  ( 
gw_fieldhue( field.  BLACK,  WHITE); 

> 


clip_vectw(width ,  color,  x0,  y0,  xl ,  y  1) 

int  width,  color; 
long  x0,  y0 ,  xl ,  y 1 ; 


( 


I 

1 

I 

I 

I 


double  dydx,  dxdy; 

if  (xl  !•  x0) 

{ 

dydx  «  (double)(y1-y0)/(xl-x0); 

) 

if  (yl  ! »  y0) 

{ 

dxdy  »  ( double)(x1 -x0 )/( yl -y0  ) ; 

> 

if  (x0  <  0) 

( 

if  (xl  <  0) 

( 

return ; 

} 

y0  -•  x0“dydx; 
x0  »  0; 

) 

if  (x0  >  2047) 


\ 
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if  (xl  >  2047) 

{ 

return ; 

> 

y0  -■  (x0-2047)*dydx 
x0  «  2047; 


i 


> 

if  (xl  <  0) 
( 
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y  1  -«  x1*dydx; 
xl  »  0 ; 

I  > 

if  (xl  >  2047) 

I  < 

y 1  —  (x1-2047)»dydx; 

•  xl  -  2047; 

) 

|  if  (y0  <  0) 

if  ( yl  <  0) 

|  < 

I  return; 

•  ) 

x0  -«  y0»dxdy; 

Iy  0  «  0 ; 

> 

if  ( y0  >  2047) 

.  < 

I  if  (yl  >  2047) 

return ; 

|  > 

f  x0  -•  (y0~2047)*dxdy; 

y0  -  2047; 

) 

if  (yl  <  0) 

( 

xl  -»  y1*dxdy; 
yl  «  0; 

> 

if  (yl  >  2047) 

( 

xl  -«  ( yl -2047 )*dxdy ; 
yl  «  2047; 

) 

.  vectw( width ,  color,  (int)x0,  (int)y0, 

!> 

I 

I 

I 

I 


( int )x1 , 


(int)y 
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1#include  "lvm.h" 

^include  "lwind.h" 

#include  <math.h> 

|#ifndef  PASCAL 
^define  PASCAL  pascal 
#endif 

[^define  FAR  far 
typedef  int  (FAR  PASCAL  *FARPROC)( ) ; 

int  FAR  PASCAL  lstrcmp( LPSTR ,  LPSTR) ; 

|#define  abs(  n  )  ((n)  <  0  ?  -(n)  :  (n)) 
^define  sqr(  n  )  ((n)  *  (n)) 

|#def ine  PI  3.14159265 
#def ine  EARTH  RADIUS  6400L 


static  FPOINT  loc; 


/»  last  selected  map  point  (local  coordinates)  “/ 


|static  int  inside  (lat.  Ion,  min_lat,  min_lon,  max_lat,  max_lon) 
I  long  lat,  Ion,  min_lat,  min_lon,  max_lat,  max_lon; 


if  ((lat  <  min_lat)  IS  (lat  >  max_lat)) 

|return(  0  ); 

if  (min_lon  <»  max_lon) 

return( (min_lon  <«  Ion)  &&  (Ion  <»  max_lon)); 
„  else 


|return( ( ( 0  <«  Ion)  &&  (Ion  <«  max_lon ) )  II 
((min_lon  <■  Ion)  &&  (Ion  <«  360*36 


3600L ) ) ) ; 


pan_dir(fleld) 


window  “field; 


pan_map( field->param) ; 

pix_to_latlon((long)markx,  (long)marky,  &mark_lat,  &mark_lon); 
reset_aoi();  /»  reset  the  area  of  interest  to  cover  the  entire  frame  */ 

redo_screen( ) ; 
return(  0  ); 


|  zoom_dir( field ) 


WINDOW  “field; 


long  x,  y; 


I  zoom  map(field->param,  mark_lat,  mark_lon); 
latlon_to_pix(mark_lat,  mark_lon,  &x,  &y); 
markx  «  x ; 
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Imarky  «  y; 
reset_aoi ( ) : 
redo_screen( ) ; 
return(  0  ); 


lmap_point( field,  x,  y,  b) 

WINDOW  *field; 
int  x,  y,  b; 


markx  «  x; 

Imarky  «  y; 

pix_to_latlon( ( long )markx ,  (long)marky,  &mark_lat,  Amark_lon): 
cursoff ( ) ; 

gw_movwin(mapmark ,  markx-mapmark->width/2 ,  marky-mapmark->tieight/2 ) ; 

|gw_refresh( ) ; 
curson( ) ; 
return(  0  ); 


,toggle_units  (field) 


WINDOW  *f ield ; 


show_mask  fleld->ppram; 


|s>i iuw _ ■  i  ioiu' 

redo_screen( ) ; 
return(  0  ); 

> 

J clear_screen  (field) 

,  WINDOW  *f ield : 


show_mask  *  0; 
redo_sc reen( ) ; 
return(  0  ); 


return_pc( ) 


return( 1 ) ; 


redo  screen  () 


if  (inpw(0x3e0)  »■  -1 ) 


return ; 
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I 

I 

I 

I 

f 
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> 

gw_movwin ( mapmark , 
gw_getvid( ) ; 
clip_aoi( ) ; 
show_icons( ) ; 
show_coa( ) ; 
unclip_aoi( ) ; 
show_terrain( ) ; 
gw_repaint( )  ; 
draw_aoi( ) ; 
cursoff ( ) ; 
gw_refresh( ) ; 
curson( ) ; 
return(  0  ); 


1987  09:17  AM 


markx-mapmark->width/2 , 


marky-mapmark- > height/ 2 ) ; 


|show_icons  ( ) 

{ 

I  int  drow_icon();  /*  A  routine  which  is  called  when  ’ do_icon_region ’ 

finds  an  icon  that  falls  within  a  region  of 
interest  (in  lvmdraw.c)  */ 

|  extern  long  split_deg(); 

if  (!show_mosk)  return;  /*  no  icons  currently  shown  ....  */ 

V*  Display  the  icons  that  fall  within  the  area  of  interest  */ 

do_icon_region(aoi__lat1 ,  aoi_lon1,  aol_lat2,  aoi_lon2,  draw_icon); 
return(  0  ) ; 


area_of_interest( field ,  x,  y,  b) 

WINDOW  *field; 
int  x,  y,  b; 


( 

menu_toggle( ) ; 

get_aol(x,  y);  /*  in  lvmdraw.c  */ 

menu_toggle( ) ; 
redo_screen( ) ; 
return(  0  ); 

) 

select_aoi(  ) 

( 

int  x,  y; 
hi jack_mouse( ) ; 
m_posbut(4x,  &y); 
area_of_interest( 0 ,  x,  y  ) ; 
cursof f (  ) ; 


I 
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£  return_mouse( ) ; 

menu_toggle( ) 

0  static  char  func_on  *  i ; 

Icursoff ( ) ; 

gw_clear(plan->w) ; 
if  (func_on  «  !func_on)  { 
gw_popup( functions,  15,  37); 

|  9w_prints( plan->w, "  Menu  Off");  /*  Function  now  allows  em  to  turn  it  off  »/ 
else  { 

Igw_remove( functions ) ; 

gw_prints(plan->w, "  Menu  On"); 


gw_ref resh( ) ; 

Icurson( ) ; 
return(  0  ); 


turn_of f_self ( field ) 
ilNDOW  "field ; 


gw_remove( f ield->menu ) ; 
gw_refresh( ) ; 
return( 0) ; 


eset_aoi  ( ) 

aoi_x1  «  0; 

aol_y1  -  0; 

aoi_x2  «  screen_w  -  1 ; 

aol_y2  »  screen_h  -  1 ; 


Jpix_to_latlon(0L,  0L,  4aoi_lat1,  Aooi^lonl); 

pix_to_latlon((long)(screen_w-l ),  ( long )( screen_h-1 ), 


&aoi_lat2,  &aoi_lon2); 


i  how  distance( ) 


Iint  x0 ,  y0 ,  xl ,  yl ; 

long  lat0,  lon0,  latl,  lonl 
double  a,  b,  c,  d2,  e,  f; 


/»  sorry,  but  I  don’t  have  names  for  them  */ 


» 
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|  double  angle,  distance; 

info( "Select  2  points  on  the  map  by  clicking  the  mouse  button.”); 
menu_toggle(  ) ; 

select_2_pts(&x0,  &y0,  &x1 ,  &y1); 
menu_toggle( ) ; 

pix_to_latlon( ( long  )x0 ,  (long)y0,  &lat0,  &lon0); 
pix_to_latlon( ( long )x1 ,  (long)yl,  &lat1 ,  ilonl); 
a  -  2*sln( ( double) labs ( lon1-lon0)/3600*PI/180.0/2); 
b  •  tan( ( double )lat0/3600*PI/ 180 . 0 ) ; 
c  -  tan( ( doub le ) lat 1 / 3600 »PI/ 180. 0)-b; 

|  d2  *  sqr( a )+sqr(c ) ;  /*  d  would  be  sqrt(d2),  but  only  d2  is  needed  */ 

•  e  -  1 /cos( ( double )lat0/3600*PI/ 180 . 0 ) ; 
f  -  1 /cos( ( double )lat1 /3600*PI/ 180 . 0 ) ; 
angle  ■  acos( ( sqr( e )+sqr( f )-d2 )/ ( 2*e*f ) ) ; 
distance  *  EARTH_RADIUS*angle; 

info(”The  distance  is  #.21f  kilometers",  distance); 
return(  0  ); 


describe_icon  (index) 

|  long  index; 

( 

|  static  char  description[80] ; 

if  ( icons[index] . class  >-  RED_UNIT ) 

V  { 

I  strcpy( description ,  "ENEMY  "); 

*  > 

else 

I  < 

,  strcpy( description ,  "FRIENDLY  "); 

) 

■  switch  ( icons[index] . class  &  7) 

1  ( 

case  BRIGADE: 

strcat( description ,  "BRIGADE"); 

(break ; 
case  CORPS: 

strcat( description ,  "CORPS"); 

(break ; 
case  HO; 

strcat( description ,  "HEAD  QUARTERS"); 
break ; 

(case  REGIMENT: 

strcat( description ,  "REGIMENT"); 
break ; 

Icase  DIVISION; 

strcat(descrlption,  "DIVISION"); 
break ; 

) 

Iinfo( description ) ; 

> 

I 

I 


V 
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get_data( ) 

long  lat0,  lon0,  latl ,  lonl; 
long  split_deg( ) ; 


I 

I 


pix_to_latlon( ( long )(markx-1 0 ) ,  ( long )(marky-l 0 ) ,  41at0, 
pix_to_latlon( ( long )(markx+10 ) ,  ( long )(marky+i 0 ) ,  41at1 , 
do_icon_region( lat0 ,  lon0,  latl,  lonl,  describe_icon ) ; 
return( 0 ) ; 


^static  cbar  plan_on  «  0; 
®plan_el_select( field ) 


J/INDOW  “field; 

{ 

Igw_remove( planel ) ; 
plan_on  «  0; 

gw_popup(menu[field->param] ,  plan->curx+gw_field(plan  ,  1 ) 
screen_h  -  16  -  menu[field->param]->height); 

|gw_ref resh( ) ; 
return( 0 ) ; 

} 

lplan_ioggle( ) 


I  cursoff ( ) ; 

if  (plan_on  »  !plan_on)  { 

gw_popup( planel ,  plan->curx+gw_field(plan,  l)->bx, 

1plan->cury-planel->height) ; 

> 

else  { 

Igw_remove( planel ) ; 

gw_ref resh( ) ; 
curson( ) ; 

|return(  0  ); 

) 

I 

I 

I 

I 


\ 


&lon0  )  ; 
&lon1  ) ; 


>bx , 
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I 

I 

I 

I 

I 
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#include  "parallax . h" 

^define  extern 
^include  "lvm.h" 
tfundef  extern 

lvminit(map_directory ) 

char  *map_directory ; 


int  oldind  »  0;  /*  old  cursor  table  Index  (initially  points  to  crosshair  */ 

int  oldx,  oldy;  /*  old  mouse  cursor  position  values  */ 

char  digitize,  key; 

char  small; 

int  i ; 

static  char  *clist[]  «  ("xhcur.p",  "swcur.p",  "scur.p",  "secur.p",  "wcur.p", 

"ecur.p",  "nwcur.p",  "ncur.p",  "necur.p",  "circle . p"  } ; 

if  (inpw(0x3e0)  -«  -1) 

{ 

return; 

} 

small  »  0; 
digitize  -  0; 

graphini(l);  /*  initialize  graphics  »/ 

pan ( screen_x , screen_y+479 ) ; 
zoom(2,  2); 

gw_loadall( "menus . 1st" ) ; 

gw_varini();  /*  Load  the  menus  into  memory  */ 

ini_curstob( 1 0 > ;  /*  Load  the  cursor  fonts  into  memory  */ 

for  (l  *  0;  i  <  10;  i++) 

{ 

defcur(i,  RED,  clist[i]); 

> 

gw_l_icon_imgtab( "icons . 1st" ,  &icontab);  /*  Lood  the  icon  fonts  into  memory  »/ 

gw_popup(asof ,  440,  400); 
gw_popup( infoline,  16,  16); 
gw_popup( rim,  0,  0); 
gw_popup(map ,  16,  16); 
for  (i  ■  0;  i  <  4;  i++)  { 

gw_popup( in[l] ,  inx[i],  iny[i]); 
gw  popup(out[i] ,  outx[i],  outy[i]); 

) 

gw_popup( functions ,  16,  37); 
gw_popup(plan ,  15,  444); 
gw_prints(plan- >w,  "  Menu  Off"); 


J/*  Initialize  the  video  mapping  module  data  base  */ 
load_vldmap(map_directory ) ; 

|/*  Load  up  the  icon  data  base  (from  VAX)  into  memory  */ 
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_  load_icons( "icons . db"  ) ; 

•  reset_aoi();  /*  area  of  interest  for  displaying  icons  »/ 

Imarkx  »  screen_w/2: 
marky  -  screen_h/2; 
m__hminmax(8,  screen_w-8) ; 

1m_vminmax(8, screen_h-8) ; 

gw_popup(mapmark ,  markx-mapmark->width/2 ,  marky-mapmark- >height/2 ) 
show_mask  «  0; 
redo_screen( ) ; 


I) 
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^include  <stdio.h> 

■'include  <dos.h> 


static 

I 

1 

1 

I 

I 

I 

I 

I 


union  REGS  regs86 ; 


wait(ticks) 

. . . 

/*  Wait  for  the  specified  number  of  ticks.  */ 

/* - «/ 

/*  Time  is  expressed  as  a  number  of  clock  ticks.  */ 

/*  (On  the  IBM  PC  there  are  18.2  ticks/second. )  */ 

/*«*•* . * . **/ 

unsigned  ticks; 

{ 

long  time,  etime; 


regs86.h.ah  »  0;  /*  Get  time  service  code  */ 

int86( 0x1  A , &regs86 , &regs86 ) ; 

time  ■  ( long )  ( ( regs86 . x . cx  <<  16)  +  regs86 . x . dx ) : 
etime  »  time  +  ticks; 
while  (time  <*  etime) 

( 

regs86.h.ah  *  0; 

int86( 0x 1 A , &regs86 , 4regs86 ) ; 

time  «  ( long)( ( regs86 . x . cx  <<  16)  +  regs86 . x . dx  ) ; 

) 

> 


i 

I 

I 

I 


\ 
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»  ^include  "parallax. h" 
^include  "boundary . h" 


I 


^include  "lvm.h" 

^define  extern 
^include  "gwvars.h" 
#undef  extern 


/*  includes  gwindows.h  •/ 


I 

I 


int 

int 

int 

int 


screen_x 
screen_y 
screen_w 
screen  h 


0; 

512 

640 

480 


I 

I 


int  chsizh 
int  chsizv 

int  zoomx  ■ 
int  zoomy  « 

gw_varini( ) 


•  16; 
-  32; 

2; 

2; 


/*  horizontal  size  of  a  character  in  pixels  */ 
/*  vertical  size  of  a  character  in  pixels  */ 


I 

I 

I 

I 


I 

I 

I 

I 

I 


int  i  ; 

int  zoom_dir(),  map_point( ) ,  pan_dir(),  toggle_units( ) ; 
int  return_pc(),  menu_toggle( ) ,  area_of_interest( ) ; 
int  show_distance( ) ,  clear_screen( ) ,  get_data(); 
int  turn_of f_self ( ) ; 

WINDOW  -field; 

rim  »  menu [0] ; 

for  (field  *  rim->w;  field;  field  ■  field->next)  { 
field->function  ■  pan  dir; 

) 

map  *  menu[l]; 

mop->w->function  •  map_point; 
for  (i  •  0;  i  <  4;  i++)  { 
in[i]  -  menu[i+2]; 
in [i]- >w- > function  ■  zoom_dir; 
out[i]  «  menu[i+6]; 
out[i]->w->function  »  zoom_dir; 

) 

inx [0]  •  inx [2]  ■  INLEFT1 ; 

iny[0]  «  iny[l]  *  0; 

inx  [1 ]  -  inx  [3]  *  INRIGHT1 ; 

iny [2]  «  iny [3]  «  MAXY  -  BORDER; 

outx[0]  »  outx[2]  »  0; 

outy [0]  -  outy [1 ]  -  0UTB0T1 ; 

outxil]  -  outx [3]  -  MAXX  -  BORDER; 

outy[2]  «  outy[3]  «  00TT0P1 ; 

asof  «  menu [10]; 

functions  ■  menufll]; 

gw_field( functions , 0  )->function  ■  return_pc; 
gw_field( functions , 1 )->function  -  get_data; 
gw_field( functions , 2 )->function  «  show_distance ; 
gw_field( functions , 3  )- >function  *  clear_screen ; 


GWVARINI.C 


J PAGE  2  February  16,  1987  09:08  AM 

|gw_field( functions , 4 )- > function  = 
gw_f ield( functions, 5)-> function  = 
gw_f ield( functions , 6 )- > function  = 
infoline  «  menu[l2]; 

Iplon  »  menu [13]; 

gw_field(plan, 0)->function  «  menu 
mapmark  «  menu[14]; 

•  mapmark- >w-> function  «  map_point; 


I 

I 

I 

I 

! 


I 

I 


L  . 


area_of_interest ; 
toggle_units : 
toggle_units ; 

toggle ; 
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•^include  "lvm.h" 


/»  defines  the  icon  structure  and  pointer  to 


■^define  min(a,b)  (o  <  b  ?  a  :  b) 
[typedef  struct 


long  lot; 
long  index; 

}  x  index  struct; 


/*  existing  LAT  value  from  icon  database  “/ 

/«  index  of  first  icon  in  database  with  this  X  value  “/ 
/*  states  starting  index  for  particular  X  value  “/ 


I  long  num_icons;  /*  number  of  icons  currently  in  the  database  */ 

long  max_icons;  /*  maximum  number  of  icons  the  database  can  hold  */ 

unsigned  num_x_values ;  /*  number  of  distinct  X  values  in  the  database  “/ 

unsigned  max_x_values ;  /«  maximum  number  of  x_index  entries  we  can  hold  */ 


(unsigned  max_x_vaiues ;  /*  maximum  numoer  ot  x_inaex  entries  we  cun  muau 

x_index_struct  “x_indexes ; /*  beginnings  of  distinct  X  values  in  the  database  “/ 

/*  allocated  at  run-time  */ 


/*  char  *lsbrk();  */ 

|char  *malloc(); 

movlmem  ( source , destination , amount ) 

Ichor  “source,  “destination; 
long  amount; 


if  (source  <  destination) 

( 

source  +«  amount; 
destination  +»  amount; 
while  (amount  >  30000) 

( 

amount  -«  30000; 

source  -«  30000; 

destination  --  30000; 

memcpy ( destination , source , 30000 ) ; 

) 

source  -«  amount; 
destination  -«  amount; 

memcpy ( destination , source, ( int  Jamount ) ; 

) 

else 

( 

while  (amount  >  30000) 

( 

memcpy ( destination , source , 30000 ) ; 
amount  -•  30000; 
source  +■  30000; 
destination  +«  30000; 

) 

memcpy ( destination , source , ( int )amount ) ; 


load  icons  (filename) 
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Ichor  “filename; 

{ 

long  database_size ,  index,  last_x; 

I  int  bytes_read; 
char  “ptr ; 
int  handle; 

I  handle  «  open( filename, 0x8000) ; 

■  /*  read  num_icons,  if  error  assume  no  previous  data  “/ 

if  (  read( handle , &num_icons , sizeof  num_icons)  !«  sizeof  num  icons) 

I  < 

|  num_icons  «  0; 

Imax_icons  *  num_icons+200 ;  /“  allow  for  200  insertions  “/ 

database_size  -  max_icons“( sizeof  “icons);  /*  space  to  alloc,  for  d.b.  */ 
icons  -  (icon_struct  * )malloc( ( int )database_size ) ;  /*  request  memory  from  DOS 

*/ 

I  if  (num  icons) 

< 

database_size  «  num_icons*( sizeof  “icons);  /“  amount  of  prev .  data  */ 
ptr  -  (char  “)icons; 

Ido  {  /“  read  in  bursts  of  4k  */ 

bytes_read  »  read( handle , ptr ,( int )min( database_size , 4096 )) ; 
ptr  +«  bytes_read; 

|database_size  -■  bytes_read; 

}  while  ( database_size  &&  bytes  read);  /“  until  EOF  or  end  of  d.b.  */ 

) 

close(handle) ; 

num_x_values  «  0;  /*  count  num_x_values  “/ 

last_x  «  icons[0] . lat-1 ;  /“  make  sure  last_x  :«  icons[0].lat  */ 

for  (index  »  0;  index  <  num_icons;  index++)  /*  scon  whole  d.b.  */ 

( 

if  (last_x  !»  icons[index] . lat)  /*  new  X?  */ 

( 

last_x  «  icons[index] . lat;  /*  remember  this  value  “/ 

num_x_values++ ;  /*  count  this  value  «/ 

) 

) 

max_x_values  «  num_x_values+1 00 ;  /*  allow  for  100  new  X  values  “/ 

database_size  «  (max_x_values+1 )“( sizeof  *x_indexes);  /*  size  of  x_indexes  */ 
x_indexes  «  ( x_index_struct  * )malloc( ( int )database_size ) ;  /“  get  memory  from  D 
OS  */ 

num_x_values  »  0;  /"  build  x_indexes  “/ 

last_x  «  icons[0] . lat-1 ;  /*  make  sure  last_x  !«  icons[0].lat  “/ 

for  (index  »  0;  index  <  num  icons;  index++)  /*  scon  whole  d.b.  “/ 

{ 

if  (last  x  ! *  icons[index] . lat)  /*  new  X?  */ 

( 

last_x  »  icons[index] . lat;  /“  remember  this  value  */ 

x_indexes[num_x_values] . lat  ■  last_x;  /“  record  this  X  value  &  index  * 

x  indexes[num_x_values++] . index  ■  index;  /*  and  increment  counter  “/ 


i  x  indexes[num  x  values]. lat  »  0x7FFFFFFF ;  /*  last  entry+1  points  to  end  */ 
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|x_indexes[num  x  volues] . index  «  num  icons: 

> 

store_icons  (handle) 

■  int  handle; 


( 

long  database_size-, 
int  bytes_written ; 
char  *ptr; 

write( handle , &num_icons , sizeof  num_icons);  /“  write  num_icons  »/ 

datobase_size  *  num_icons*( sizeof  “icons);  /*  amount  of  data  to  write  */ 
ptr  «  (char  *)icons; 

while  ( database_size )  /*  write  in  bursts  of  4k,  since  write  limited  to  64k  »/ 

( 

bytes_written  «  write( handle , ptr ,( int )min( database_slze , 4096 )) ; 
database_size  -«  bytes_written ; 
ptr  +«  bytes_written ; 

) 

) 

unsigned  find_x_index  (x) 


long  x; 


_  unsigned  low_end,  high_end,  middle; 

■  /*  perform  binary  search  on  x_indexes,  and  return  the  resulting  index 

low_end  *  0; 

I  high_end  «  num_x_values ; 

while  (((middle  «  ( low_end+high_end ) /2 )  !*  low_end)  && 
(x_indexes[middle] . lat  !«  x)) 

{ 

if  (x  indexes[middle] . lat  <  x) 

(  ~ 

low  end  »  middle; 

) 

else 

( 

high_end  •  middle; 

) 

) 

if  (x_indexes[middle] . lat  <  x) 

|  < 

I  middle++; 

> 

return(middle) ; 

1 


long  find_icon  (x_index,y) 


I 

I 

I 


unsigned  x_index; 
long  y; 


v 
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| 

long  low_end,  high_end,  middle; 

I/“  perform  binary  search  on  range  of  icons  specified  by  x_indexes [x_index 
and  x_indexes[x_index+1 ] ,  and  return  the  resulting  index  “/ 
low_end  «  x_indexes[x_index] . index; 
high_end  ■  x_indexes[x_index+1 ]. index; 
while  (((middle  «  ( low_end+high_end )/2 )  !»  low_end)  && 

( icons[middle] . Ion  !-  y)) 

( 


], 


I 


if  ( icons[middle] . Ion  <  y) 

( 


I 


low  end  «  middle; 

} 

else 

( 


I 

I 


high_end  ■  middle; 

} 

) 

if  ( icons[middle] . Ion  <  y) 

( 

middle++ ; 

) 

return(middle) ; 


I 

do_icon_region 


(min_lat, 


min  Ion,  max  lat,  max  Ion,  handler) 


long  min_lat,  min_lon,  max_lat,  max_lon; 
int  (*handler)( ) ; 


unsigned  lat_index; 
long  icon_index; 


/ 


I 

I 

I 

I 


if  (min_lon  >  max_lon)  min_lon  -■  360“3600L; 

lat_index  «  find_x_index(min_lat) ;  /*  find  first  desired  range  “/ 

while  (x_indexes[lat_index] . lat  <  max_lat)  /“  scan  all  potential  ranges  */ 

( 

icon_index  «  f ind_icon( lat_index , min_lon ) ;  /*  find  first  desired  icon  * 

while  ( ( icons[icon_index] . Ion  <  max_lon)  &&  /*  scan  all  desired  icons  */ 

(icon_index  <  x_indexes[lat_index+1 J . index ) ) 

( 

( “handler )( icon_index ) ;  /*  call  the  hondler,  passing  icon_index  */ 

icon_index++ ;  /*  proceed  to  the  next  icon  */ 

) 

if  (min_lon  <  0)  ( 

min_lon  +«  360*3600L; 

lcon_lndex  »  f ind_icon( lat_index , min_lon ) ; 
while  ( ( icons[icon_index] . Ion  <  360*3600l)  && 

( lcon_index  <  x  indexes [lat_index+1 ]. index ) ) 

( 

( “handler )( icon_index ) ;  /“  call  the  handler,  passing  icon_index  * 


\ 
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I  icon  index++; 

> 

min_lon  -■  360*3600L; 

I  lat  index++; 


/*  proceed  to  the  next  icon  */ 


/*  proceed  to  the  next  X  value  •/ 


insert_icon  (x,  y,  class) 


long  x,  y; 

|  unsigned  class; 


/*  classification  of  type  of  icon  */ 


(unsigned  x_index; 

long  icon_index,  shift_size; 


Char  *ptr ; 

if  (num_icons  >«  max_icons)  /*  room  for  new  icon?  »/ 

{ 

return ; 


I* 

x_index  «  f ind_x_index(x ) ;  /*  position  of  new  icon  in  x_indexes  */ 

if  ( x_indexes[x_index] . lat  !■  x)  /*  new  X  value?  «/ 


if  ( num_x_values  >«  max_x_values ) 


/*  room  for  new  X  value?  */ 


return ; 


/*  shift  front  end  of  x_indexes  forward  to  make  room  for  new  X  value  */ 
shift_size  »  ( num_x_values+1 -x__index )*( ( long )sizeof  *x_indexes); 
movlmem(&x_indexes[x_index] , &x__indexes [x_index+1 ] , shift_size ) ; 
num_x_values++;  /*  update  num_x_values  */ 

x_indexes [x_index] . lat  ■  x;/*  load  new  X  value  into  x_indexes,  index  OK 
icon_index  »  x_indexes[x_index] . index;  /*  place  to  insert  in  icons  */ 


icon_index  ■  f ind_icon( x_index , y ) ; 


/*  place  to  insert  in  icons  */ 


/*  shift  front  end  of  icons  forward  to  make  room  for  new  icon  */ 
shift_size  »  ( num_icons-icon_index )*( sizeof  *icons); 
movlmem(& icons [icon_index] , 4icons[icon_index+1 ] , shift_size) ; 
num_icons++;  /*  update  num_icons  */ 

icons[icon_index] . lat  ■  x;  /*  load  new  icon  into  his  home  */ 

icons[icon_index] . Ion  «  y; 
icons[icon_index] . class  «  class; 

/*  update  x_indexes  to  reflect  the  shift  in  icons  */ 
while  (++x_index  <■  num  x_values) 

{ 

x_indexes [x_index] . index++; 


aelete_icon  (x,y) 
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long  x,  y; 


■  unsigned  x_index,  index; 

*  long  icon_index,  shift_size; 

|x_index  «  find_x_index(x ) ; 

if  (x_indexes[x_ir.dex]  .  lat  !■  x) 


return ; 


/«  find  range  of  X  of  specified  icon  »/ 
/«  no  such  X  ->  no  such  icon  */ 


icon_index  »  f ind_icon( x_index , y ) ;  /*  find  specified  icon  */ 

if  ( ( icons[icon_index] . Ion  ;«  y)  ! !  (icon_index  >■  x_indexes[x_index+1 ]. index  ) 


return ; 


/*  icon  doesn't  exist  »/ 


|shift_size  «  ( num_icons-icon_index-1 )*( sizeof  *icons);  /*  delete  icon  */ 

movlmem(&icons[icon_index+1 ] , &icons [icon_index] , shift_size) ; 
num_icons — ;  /»  one  less  icon  in  list  */ 

index  «  x_index;  /*  update  x_lndexes  to  reflect  shift  in  icons  */ 

while  (++index  <»  num_x_values ) 


x_indexes[x_index] . index — ; 

} 

/*  if  the  deleted  icon  was  the  last  with  that  X  value,  zap  x_indexes  entry  */ 
if  (x  indexes[x_index] . index  -«  x_indexes[x_index+1 ]. index ) 

{  “ 

/*  delete  the  entry  by  shifting  the  front  end  backwords  */ 
shift_size  •  (num_x_values-x_index)*(long)(sizeof  *x_indexes); 
movlmem(&x_indexes[x_index+1 ] , &x_indexes[x_index] , shift_size) ; 
num  x  values — ;  /*  one  less  existing  X  value  */ 


v 


